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9090 = 


9038 = 


F000 = 


8904 = 


8808 = 
0889 = 


8080 = 
8808 = 
3098 = 




♦ * 

* CUSTQHIZED BIOS FOR MICRQHATION 'DOUBLER' AS USED 8 ITH * 

* <C> OR <C1> PRQH ION DOUBLER). * 

* SINGLE/DOUBLE DENSITY, SINGLE/DOUBLE SIDED. * 

i=====================r====================================r====* 

* NITH DRIVERS FOR HH MULTI I/O BRD IN SINGLE USER CONFIGURATION* 

»======================:====rz============r==z==========r=======* 

» COPYRIGHT IC) 1979, MICROfiATION AND DIGITAL RESEARCH. * 

* » 

i LAST UPDATED ON FEB 12, 1988 * 

* * 

* REVISED FOR CAVRO STD SYSTEM * 

* VERSION 2.0 REV 8 OCT 26,1984 * 

» t 


♦»♦*»«**♦*«*********♦*♦**»*»»***»»*»*♦*♦»**»»*****♦»♦»»*»»***♦»» 


***tnt***t**»t**»**t«*****t*t**»*t*t**tt**t»***ttt*t*»****»**»tt*******»t***** 

TRUE EBLi -1 ! FALSE EBU 0 


*{t*»«*»»******»*****»*»t**»*t*****tt»*»i*t*****t*t**»t*t*t»***t*t**t»***t»t*tt* 

*THE FOLLONING LABELS MAY BE USER DEFINED FOR DIFFERENT OPERATING ENVIRONMENTS; 


MSIZE 


lOPROH 


EBU 56 


ISIZE OF OKRimSG SYSTEM IN KILOBYTES 
MCURRENllY 60K). )tHIS NUMBER MUST BE 
; CHANGED FOR LARGER SYSTEMS. 


ESU 8F808H 


? OFFSET FOR 56K = 4588H 


NDRIVES EBU 


^NUMBER OF DISK DRIVES SUPPORTED BY 
5 THIS CBiOS 


t=r========================r================================================; 

* I/O BYTE FOR LIST DEVICE IS IMPLEMENTED AS FOLLONS: 

* TTY = MULTLIST IHM MULTI I/O BOARS SERIAL PQRTil) 

* CRT = CONOUT (MM DOUBLER SERIAL PORT) 

» LPT = CENTLIST (CENTRONICS 783/779 TYPE LIST DEVICE) 

* ULl = OPTIONAL DRIVER TO BE SELECTED BY USER (SEE BELON) 

»===r===r============r=rrrr===r====================r=============r==========: 

* ==>UPBATED:2-12-88 


LIST DEVICE EQUATES: (THESE COULD BE SET FALSE TO SAVE BIOS SPACE IF 
USER LIST DRIVER IS TOO LARGE TO FIT OTHERWISE) 


MULTLIST 

CENTLIST 

EBU 

ESU 

FALSE 

FALSE 

? LIST DEVICE OPTIONS: 1 

NONE 

ESU 

FALSE 

GODBIO 

EBU 

FALSE 

SSHIO 

EBU 

FALSE 


SET ONLY ONE FLAG TRUE FOR DESIRED DRIVER AS ULl 


FALSE jNO ULl FUNCTION DESIRED 
56 ODBOUT I/O BOARD AS LSI: 
iSOLID STATE MUSIC 2S+P AS LSI: 
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8800 = OPIQ ESU FALSE : DELTA PRODUCTS CPU BOARD AS L8T; 

FFFF = USERLST ESU TRUE iSET FLAB TO INSERT USER DEFINED L3T: 

iTHiS CODE MUST BE INSERTED IN BIOS UNDER LIST: 
;AND INITIALIZATION CODE UNDER ICOLDI BOOT 


BIAS IS ADDRESS OFFSET FROH 3488H FOR NEHORY SYSTEHS 
THAN 20K (REFERRED TO AS B THROUGHOUT THE TEH). 


9S08 = 

BIAS 

E8U 

(NSIZE-20)*i824 


C4@i = 

CCP 

EBU 

3408HtBIAS 

:BASE OF CCP 

CCi6 = 

BOOS 

EQU 

CCP+806H 

■,BASE OF BOOS 

DA08 = 

BIOS 

E8U 

CCP+I608H 

?BASE OF BIOS 

8883 = 

I GBYTE 

ESU 

0083H ; INTEL 

I/O BYTE 

8i5E = 

SIGNON 

EQU 

8B5EH iLOCATION OF HESSAGE LEFT BY 


I BOOTSTRAP LOADER 


CBIQS FOR HICROHATION DOUBLE DENSITY CONTROLLER 


m% = 

CONTROLLER 

E8U 

8Fe80H 

: ADDRESS OF 

CONTROLLER 

F88i = 

PRQH 

ESU 

CONTROLLER 

; ADDRESS OF 

DOUBLER PROH 

FCii = 

BUFF 

ESU 

CONTROLLERtABSH ; ADDRESS OF 

SCRATCH RAH 


i if 

* HARDNARE PORT DEFINITIONS * 

* * 


FEi0 = 

NRCONT 

EOO 

CONTROLLER4680H 

FE88 = 

RDSTAT 

EQU 

NRCONT 

FE8i = 

BRCLK. 

EQU 

mmmi 

FEe.2 = 

UARTDATA 

EOO 

yRC0NT4-2 

F£05 = 

RDNARK 

EOU 

NRCONTiS ? LOADS THE HEAD 

FESA = 

UARTSTAT 

EQU 

NRCONT+0AH 


1 * 

f * # ^ ^ it 



» RAN VARIABLE DEFINITIONS * 






* 


* ^ i 

t 1' It !• it 

»»»*** 


FCii = 

DENBYTE 

ESU 

BUFF^i 

50 FOR SINSLDE DEN., 10 FOR DBL.DEN 

FCi3 == 

CTRBYTE 

ESU 

ByFF+3 

;RAH IMAGE OF RDSTAT OR SRCQNT 

FC84 = 

TRACK 

ESU 

BUFF+4 

STRACK NUMBER FOR CURRENT DRIVE 

FCi5 

PRESDSK 

ESU 

BUFF+5 

;CURRENTLY LOGGED IN DRIVE NO. 

FCiA = 

SECTOR 

ESU 

BUFF+iAH 


FC0D = 

NKTSISK 

EQU 

BUFF+0DH 

jDRIVE NO. FOR NEXT I/O (READ/NRITEI 

FCii = 

STEPTINE 

EBU 

BUFFtIBH 

:STEP TINE IN NSEC 



BI0S22/8 ?m 


PA8E 004 


Files 


FC!6 = 

DENHAP 

ESU 

BUFF+IM 

;FDR EACH OF 4 DRIVES, 

;g0 FOR SIN6LE DENSITY 

U0H FOR <C) PRQH 

;84H FOR <C1>PR0« FOR DOUBLE DENSITY 

FC28 = 

TRYi 

EQU 

BUFF+28H 

fCBIOS ERROR CHECK 

FC21 = 

RETRYCOUNT 

EQU 

BUFF+21H 

sCBIOS TRK. /SECTOR ERROR CHK. BYTE 

FC22 = 

DJRRBRIVE 

EQU 

BUFFt22H 

jCBIOS DISK, LOBBED IH BEFORE NARH800T 


^ LIST DEVICE EQUATES # 

IF (HULTIIST OR CENTLIST) 

sASSEHBLED ONLY FOR PORTS ON HICROHATIQN HULTI I/O BOARD 


f: 


f 

# PORT EQUATES? CHANGE VALUE OF UARTiC TO RE-HAP THE PORT DECODING OF I/Q BOARD 

f 

f NOTES DECODING OF BOARD I/O SPACE OCCURS ALONG 32 PORT BOUNDRIES 
^ (I.E.sAS-A? ARE SIGNIFICANT ADDRESS BITS FOR I/O BLOCK! 

f=:=======s=:=s:s:=====rr=sr====s=====ss=r==:=:=sss=r=r===:======r==============s=:===:: 


UARTIC EOO 0 iCQNTROL PORT OF 8251 11 (IC 4B) 


BASE 

EQU 

UARTIC 

; EQUATE BASE FOR REST OF TABLE 

UARTID 

EQU 

BAS£+i 

iDATA PORT OF UART 41 

LiART2C 

EQU 

BASE^4 

lUART 12 (IC 5B) 

UART2D 

EQU 

BASE+5 


UART3C 

EQU 

BASE+8 

SUART »3 UC 7B) 

UART3D 

EQU 

BASE+9 


UART4C 

EQU 

BASE+8CH 

lUART #4 (IC 9B! 

UART4D 

EQU 

BASE+0DH 


P8255 

EQU 

BASE+i0H 

;8255 CONTROL REB. (1C lA) 

PQRTC 

EQU 

BASE+llH 


PORTB 

EQU 

BASE^12H 


PORTA 

EQU 

BA3E+13H 


RTC 

EQU 

BASE+I4H 

i8253 TIHER/COUNTER CONTROL PORT 

TIHER2 

EQU 

BASE+15H 

? COUNTER 12 

TIHERl 

EQU 

BASE+16H 

; COUNTER #1 

TIMER0 

EQU 

BASE+i7H 

: COUNTER #8 

PORTB 

EQU 

BASE+18H 

■.PARALLEL OUTPUT LATCH (IC 2A) 

PORT! 

EQU 

BASE^IW 

{PARALLEL OUTPUT LATCH (IC 3A) 
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USERPRT E8U BASE+ICH sBASE OF USER DEFINED I/O PORTS (PORTS IC-IFH) 

*•*»*****«»»**»*»*****»*»*********»*»»****»»»*»»»*»*♦»»*»*»*******«*»♦******»»» 
ENDIF ;STOP CONDITIONAL ASSEHBLY 


IF CENTLIST 

iCONDITIONAL ASN FOR «« HULTI I/O BRD FOR USE WITH CENRONICS PRINTER 


COHHAND 

EQU 

P8255 

; COHHAND NORD REGISTER 

DATAPORT 

EOU 

PORT8 

SPARALLEL DATA OUTPUT LATCH TO PRINTER 

STATUS 

E8U 

PORTC 

iSTATUS BITS:QBF/=BIT 7 




1 ACK/=BIT b 




1 BUSV=BIT 5 


ENDIF 


;END OF PORT DEFINITIONS FOR CENTLIST 


IF USERLST 

;AREA FOR USER 

LIST ROUTINE EQUATES 


0020 = 

TUART E8U 

28H 


8828 = 

TUARTAS E8U 

TUART 

8021 = 

TUARTA EQU 

TUARTAS+l 

0822 = 

TUARTAC EQU 

TUAR 


0023 = 

TUARTAH EQU 

TUARTAC+1 

0030 = 

TUARTBS EQU 

TUARTM8H 

0031 = 

TUARTB EQU 

TUARTBS+l 

§032 = 

TUARTBC EQU 

TUARTB+I 

8833 = 

TUARTBH EQU 

TUARTBC+i 

1880 = 

TUARTBE ESU 

8@H 


8040 = 

TUARTDA EQU 

40H 



ENDIF 




■ * » j 

» * » 

JL 


1 ^ 

1 ^ 

JUHP 

T 

VECTORS TO ROUTINES IN CONTROLLER PROH ♦ 


1 t 


» 


1 f # ^ 

5 

* # ♦ 

*»*♦»»»»»»***»*♦»»»»**♦ 

F883 = 

.CHOHE 

EQU 

PROH+3 ;HOHES THE DISK 

F8B6 = 

CSELDSK 

EQU 

PROH+B ^SELECTS DRIVE POINTED TO BY C REG 




;AND LOADS HEAD 

F809 = 

CSETTRK 

EQU 

PRQH^9 ; STEPS DRIVE TO TRACK (0 

F88C = 

CSET3EC 

EQU 

PR0H+8CH ;SET SECTOR NUHBER 

F80F = 

CSETDHA 

EQU 

PR0H+8FH ;SET DHA ADDRESS 

FB15 = 

DISKNRITE 

EQU 

PR0H+15H jNRITE SECTOR 

F8!2 = 

DISKREAD 

EQU 

PR0H+12H i SECTOR READ 

F8iB = 

SETDEN 

EQU 

PROH^IBH 5 TEST DENSITY OF CURRENT DRIVE 

F81E = 

NRITEPRQTECT 


EQU PROH+lEH ;CHECK FOR NRITE PROTECT 
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PftSE 006 



J 

t 

% 

# ^ f 

» * * » ♦ 


802C = 

? 

NSECTS 


EOU 

($-CCP)/128 ;RARH START SECTOR COUNT 

8000 = 

BOOTBASE 

EGO 

8 SBOTTQH OF USABLE HEHORY 

8084 = 

CF'MBRIVE 

E8U 

BOOTBASE+4 ;LOC. 04 OF RASE 80. CURRENT CPH DISK 

3042 = 

TRACKl 


EQU 

B00TBASEt42H ;TEHPORARY STORAGE FOR TRACK NUHBER 

8849 = 

DENSIDE 


EQU 

BQ0TBASE+49H ;INFO ON DENSITY AND SIDE FOR UTILITIES 

084B = 

SIDE 


EGU 

BQ0TBASE+4DH 


■ 

^ ^ ^ 

* * * » * 




i 

T 

JUHP VECTORS FOR INDIVIDUAL SUBROUTINES ♦ 



i ^ ^ 

♦ » * * * 

USED BY ENTIRE SYSTEH * 

t 

*♦»*♦*»♦♦*»♦*♦»**♦**» 

DA80 C3CADA 


;iHP 

BOOT 

iCOLD START 

DA03 CSFBDA 

BWBOOT 

JHP 

RBOOT 

SNARH START 

Dft86 C3iBDD 


uHP 

CONST 

; CONSOLE STATUS 

Dft89 C324u]} 

CQNINl 

m? 

CQNIN 

; CONSOLE CHARACTER IN 

Dfi8C C338DI} 

CONOUIl 

*JHP 

CONOUT 

; CONSOLE CHARACTER OUT 

BASF C33DDEi 


JHP 

LIST 

ILIST CHARACTER OUT 

0A12 C362DS 


m? 

PUNCH 

; PUNCH CHARACTER OUT 

5A15 C362Di) 


JHP 

READER 

; READER CHARACTER OUT 

DA18 C3DDDC 


m? 

HOHE 

;BIOS HOVE HEAD TO HOHE POSITION 

BAIB C37EDC 


m? 

SELDSK 

;BIQS SELECT DISK (DOESN'T ACTUALLY SELECTS) 

DAIE C3i)FDC 



SETTRK 

;BIOS SET TRACK 

BA2i C3FBDC 


m? 

SETSEC 

5 BIOS SET SECTOR 

BA24 C30FF8 


m? 

CSETDHA 

; CONTROLLER SET DHA ADDRESS 

0A27 C3C7DB 


JHP 

READ 

;B10S READ DISK 

DA2A C3A8DB 


m 

RRITE 

iBIOS NRITE DISK 

I)A2D C361BD 


m 

LISTST 

;RETURN LIST STATUS 

DA30 C3E41)C 

i 

m 

SECTRAN 

1 SECTOR TRANSLATE 


? 

9 

t f f 

f # 

**t»»»i»»**jt**t*tt*t* 


? 

1 

FIXED DISK PARAHETER BLOCK TABLES FOR FOUR * 


? 

«• 


DRIVE SYSTEH » 


9 



t 


1 

? 

^ ^ 

^ ^ ^ Ht ^ 

*♦*♦♦****»»»**•*♦»»»*» 

DA33 = 

? 

DPBASE 

Eoy 

I 

;BASE OF DISK PARAHETER BLOCKS 


9 

? 

DISK PARAHETER BLOCK FOR DRIVE NO. 08 

DA33 73DAe000 

? 

DPE0: 

D0 

TRANS, 0000H f TRANSLATE TABLE 

DA37 00000800 


DR 

8008H,8e08K 1 SCRATCH AREA 

DA3B 6FDD8DDA 


DR 

DIRBUF,DPB0 ;DIR BUFF, PARH BLOCK 

BA3F BEDEEFDD 


DR 

CSy0,ALV0 ; CHECK, ALLOC VECTORS 


! 

f 

DISK PARAHETER BLOCK FOR DRIVE NO. 01 
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PA8E @07 


Dft43 

73DA@08B 

OFEi; 

m 

TRANS, 0088H 

1 TRANSLATE TABLE 

M47 

eee@00@@ 


BH 

000@H,e0B0H 

{SCRATCH AREA 

DA4B BFDBBDeA 


Dl^ 

DIRBUF,DPB0 

;DIR BUFF, PARH BLOCK 

DA4F 

4DDE2EDE 


DU 

CSV1,ALVI 

{CHECK, ALLOC VECTORS 



4 

DISK 

PARAHETER BLOCK 

FOR DRIVE NO. 82 

DA53 

73DA8008 

t 

DPE2; 

m 

TRANS, a000H 

{TRANSLATE TABLE 

DA57 

00000000 


m 

0000K,0000H 

{SCRATCH AREA 

BA5B 

BFCD8DBA 


ON 

DIRBUF,DPBB 

{DIR BUFF, PARH BLOCK 

BASF 

8CDE6BDE 


m 

CSV2,ALV2 

{CHECK, ALLOC VECTORS 



! 

<1 

DISK 

PARAHETER BLOCK FOR DRIVE NO. 03 

I)A63 

73DA0800 

4 

DPE3: 

m 

TRANS, @00@K 

{TRANSLATE TABLE 

DAB7 

00000000 


m 

0000H, 00000 

{SCRATCH AREA 

DA6B 

BFDDBDDA 


Dy 

DIRBUF,DPBB 

{DIR BUFF, PARH BLOCK 

DA6F 

CBDEACDE 

4 

Dli 

CSV3,ALy3 

{CHECK, ALLOC VECTORS 



4 

4 

SINGLE DENSITY SECTOR 

TRANSLATE TABLE 


DA73 

01078D13 TRANS’. 

DB 

1,7,13,19 ! 

SECTORS 1,2, 3, 4 

DA77 

19050811 

DB 

25,5,11,17 1 

SECTORS 5, 6, 7, 3 

DA7B 

1783B9BF 

DB 

23,3,9,15 1 

SECTORS 9,10,11,12 

DA7F 

1502080E 

DB 

21,2,8,14 I 

SECTORS 13,14,15,16 

DA83 

14!A060C 

DB 

28,26,6,12 ; 

SECTORS 17,18,19,20 

DA87 

1213i40A 

DB 

18,24,4,10 1 

SECTORS 21,22,23,24 

DA8B 

1016 

DB 

16,22 ! 

SECTORS 25,26 


I 





{DISK 

PARAHETER BLOCK FOR SINGLE DENSITY SINGLE SIDED DISKS 





NITH BLOCK SIZE BLKSZ = 1824 BYTES / BLOCK 


DPB8: 




DA8D iA00 

f 

m 

26 

{SECTORS PER TRACK 

BASF 03 


DB 

3 

{BLOCK SHIFT FACTOR 

DA90 87 


DB 

7 

{BLOCK HASK 

DA91 00 


DB 

0 

{NULL HASK 

DA92 F2B0 


m 

242 

{DISK SIZE-1 INO. OF BLOCKS/DISK-1) 

DA94 3F00 


m 

63 

{NO. OF DIRECTORY ENTRIES MAX.-l 

DA96 C8 


DB 

192 

{DIRECTORY ALOCATION SPACE HASK, 1 ST BYTE 

DA97 80 


DB 

0 

{SAHE AS ABOVE, 2 ND BYTE 

DA98 1000 


W4 

16 

{CHECK SIZE - 164 DIR ENTRIES DIV BY 4) 

DA9A 8280 


DM 

2 

{NO. OF SYSTEH (NOT ACCESSABLE) TRACKS 


? 

DPBh 


{DISK 

PARAHETER BLOCK FOR DOUBLE DEN. , SINGLE SIDED DISKS 


f 



NITH BLOCK SIZE BLKSZ = 2848 BYTES / BLOCK 

DA9C 3400 


m 

52 

{SECTORS PER TRACK 

DA9E 84 


DB 

4 

{BLOCK SHIFT FACTOR 

DA9F 0F 


DB 

15 

{BLOCK HASK 

DAA0 81 


DB 

1 

{EXTENT HASK 

DAAl F288 


m 

242 

{DISK SIZE-1 INO. OF BLOCKS/DISK-1) 



ILE; B10S22/ 

8 ?m 



PA6E 008 

DAA3 7F@e 


DW 

127 

?WG. OF DIRECTORY ENTRIES MAX.-l 

DAA5 C0 


DB 

192 

^DIRECTORY ALOCATION SPACE HASK, 1 ST BYTE 

DAA6 00 


D6 

0 

,-SAHE AS ABOVE, 2 ND BYTE 

DAA7 2000 


D0 

32 

; CHECK SIZE 

DAA9 0200 


m 

n 

i 

iNO. OF SYSTEH (NOT ACCESSABLE) TRACKS 


DPB2: 


5 DISK 

PARAHETER BLOCK FDR SINGLE DEN. , DOUBLE SIDED DISKS 


? 



WITH BLOCK SIZE BLKSZ = 2848 BYTES / BLOCK 

DAAB 3400 

? 

m 

52 

; SECTORS PER TRACK 

DAAD 04 


DB 

4 

; BLOCK SHIFT FACTOR 

DAAE 0F 


DB 

15 

; BLOCK NASK 

DAAF 01 


DB 

1 

; EXTENT HASK 

DAB0 F20B 


m 

242 

;DISK SIZE-l (NO. OF BLOCKS/DISK-1) 

DAB2 7F8B 


DN 

127 

;NO. OF DIRECTORY ENTRIES HAX.-l 

BABA C8 


DB 

192 

sDIRECTORY ALOCATION SPACE HASK, 1 ST BYTE 

DABS 00 


DB 

0 

;SAHE AS ABOVE, 2 ND BYTE 

DABB 2000 


D0 

32 

; CHECK SIZE 

DABS 0200 


DM 

2 

;NO. OF SYSTEH (NOT ACCESSABLE) TRACKS 


DPB3! 


;B!SK 

PARAHETER BLOCK FOR DOUBLE DEN., DOUBLE SIDED DISKS 


? 



WITH BLOCK SIZE BLKSZ = 4096 BYTES / BLOCK 

DABA 6800 


m 

104 

; SECTORS PER TRACK 

DABC 05 


DB 

5 

f BLOCK SHIFT FACTOR 

DABD IF 


DB 

31 

; BLOCK HASK 

BABE 03 


DB 

3 

;EXTENT HASK 

DABF F288 


DW 

242 

;DISK SIZE-i (NO. OF BLOCKS/DISK-i) 

DACl 7F00 


DW 

127 

;NO. OF DIRECTORY ENTRIES HAX.-l 

BAC3 80 


DB 

128 

^DIRECTORY ALOCATION SPACE HASK, i ST BYTE 

DAC4 80 


DB 

0 

;SAHE AS ABOVE, 2 ND BYTE 

BAGS 2000 


DW 

32 

ICHECK SIZE 

BAC7 0280 

? 

DW 

2 

;NO. OF SYSTEH (NOT ACCESSABLE) TRACKS 


5 

5 

* * 

t * * * * 



* 

* 


* 





END OF FIXED TABLES ♦ 


jt 

* 


* 


! 

5 

» * 

» t t t » 

»****j»tt*«»**«»*t*»*t 


PASE 
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? 



i i i ^ ^ 


f 


DAC9 

FF BOQTFLABs 

DB BFFH 

jSET TO 88 ON COLDBOOT 


BOOT; 

;SIHPLEST CASE IS TO 

JUST PERFORN PARAMETER INITIALIZATION 

DfiCft 

3EC1 

HVI 

A,3CiH 

jSET lOBYTE TO: LST!=UL1: 





; CON:=CRT: 

DACC 

328388 

STA 

lOBYTE 

UNITIALIZE THE lOBYTE 





;<LST:=LPT:, CON:=CR.T:) 

DACF 

AF 

XRA 

A 

iZERO IN THE ACCUM 

SAD8 

323488 

STA 

CPHDRIVE 

;LOC 8884 - CPM CURRENT DISK. NO. 

DAD3 

32C9DA 

^ 

STA 

BQOTFLAG 



; INITIALiZATIOH ROUTINES FOR LIST DEVICES FOLLOW: 

j 


IF GQDBIO 

; start CONDITIONAL FOR 60DB0UT I/O BOARD 

XRA 

A 

UNITIALIZE THE I/O BOARD 

OUT 

3 

SBY SENDING A 88 TO THE STATUS PORT 

ENDIF 


;STOP ASSEMBLING FOR THE GODBOUT ONLY 

ABOVE NOT NEEDED FOR CURRENT BOARD 

IF DPI 

0 

iUART INIT FOR DELTA PRODUCTS CPU BOARD 

HVI 

A,8EH 

1 BRINS UART TO COMAND INSTRUCTION MODE 

OUT 

81 

;PQRT 1 IS UART A STATUS 

OUT 

83 

;PORT 3 IS UART B STATUS (ALSO TIME FILL) 

MV I 

A,48H 

;COHAND INSTRUCTION MODE - RESET UART 

OUT 

81 


OUT 

83 


HVI 

A,8EEH 

;MGDE - BAUD RATE FACTOR = 16X 

OUT 

81 

^DISABLE PARITY, 8 BIT CHARACTER LENGTH 

OUT 

83 

f 

HVI 

A,37H 

iCOMAND INSTRUCTION HODE-TRANSM ENABLE, 

OUT 

81 

jDATA TERM READY, RECEIVE ENABLE, ERROR 

OUT 

/S7 

S?-.' 

PRESET, RE6UEST TO SEND (IF NEEDED) 

ENDIF 


iSTOP ASSEMBLING FOR THE DELTA PRODUCTS BRD. 

IF HUL 

TLIST 


1 CONDI 

T ZONAL ASSEMBLY 

FOR HICROMATION MULTI I/O BOARD FOLLOWS 

:825I 

UART INITIALIATION: 

HVI 

A.8EH 

UHESE FIRST TWO BYTES PUT 8251 'S IN MODE SET 

OUT 

UART 1C 


NOP 


1 WASTE TIME AT 4MHZ.... 

NOP 



HVI 

a^bh 

5 

OUT 

LIARTIC 

f 

NOP 


^WASTE TIME AT 4MHZ.... 

NOP 



HVI 

A,8EEH 

;MODE SET:ASYNC,8 DATA A 2 STOP BITS, NO PARITY 
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PA6E 01B 


OUT 

UARTIC 


NOP 


;HASTE TIHE AT 4MHZ,.,. 

MOP 

HVI 

A,37H 

SCONHAND WQRDiENABLE RXD k TID, RTS/ k DTR/ 

OUT 

UARTIC 

; FLAGS SET, ERROR FLAGS RESET... 

n 

’,8253 

INITIALIZATION: 


fiVI 

A,@B6H 

;SET NODE OF 8253 COUNTER #2 'BAUD CLOCK) 

OUT 

RTC 


HVI 

A, 13 

;DIVIDE BY 13 OF MASTER 2i1HZ. CLOCK 

OUT 

TIHER2 

? 

IRA 

A 

t 

OUT 

TIHER2 

? 

ENDIF 


iEND OF CONDITIONAL ASSEMBLY 


IF CENTLIST 


|8255 

INITIALIZATION: 

SETS UP CENTRONICS TYPE PRINTER DRIVER 

HVI 

A,8A8H 

^DEFINE NODE: PORTA= HODEl (OUTPUT) 
•,PORTC= STATUS A AND H0DE6 (INPUT! 
iPORTB= DON'T CARE (SET TO H0DE8 OUTPUT) 

OUT 

COHHAND 


HVI 

A,8FFH 

;TURN OFF DATA STROBE 

OUT 

DATAPORT 


ENDIF 


jSTQP CONDITIONAL ASSEHBLY FOR CENTLIST 


IF USERLST ; INSERT CUSTOH LIST DEVICE INITIALIZATION IN THIS AREA 


DADS AF 


A 

fiftD/ 0323 

OUT 

TUARTAM 

SA19 D333 

OUT 

TUARTBH 

DftOB 3Eil 

HVI 

A, 81 

DADD D322 

f OUT 

TUARTAC 

DADF D332 

QUT_ 

__.T!iASIBC^ 


HVI 

A,ieH I 

DAE3 

OUT 

TUARTAC 

DAE5 3E9(r<y 

HVI 

A.98H j 

DAE7 D328 

OUT 

fUARTAS 

DAE9 3EC0 

HVI 

A,8C8H 

DAEB D338 

OUT 

TUARTBS 


ENDIF 


DAED C33DDB 

JHP 

GQCPH 



j INITIALIZE AND GO TO CP/H 


NBOOT; jSIHPLEST CASE IS TO READ THE DISK UNTIL ALL SECTORS LOADED 


DAF0 3EFF 

HVI 

A.BFFH 


DAF2 32C9DA 

STA 

B00TFLA8 

5 TELL THAT NE ARE NARH 

DAF5 3188C4 

III 

SP,CCP 

;SET UP STACK BELON CP/H 

DAF8 8EB8 

HVI 

c,e 

1 SELECT DISK 8 
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BAFA CD 86 F 8 

CALL 

CSELDSK 


DAFD CC03Fa 

CALL 

CHOHE 

;60 TO TRACK 88 

DB80 062C 

wn 

B,NSECTS 

;B COUNTS i OF SECTORS TO LOAD 

B802 @E @8 

MVI 

C,B 

iC HAS THE CURRENT TRACK NUMBER 

DB84 1682 

H'vi 

D,2 

;D HAS THE NEXT SECTOR TO READ 


; NOTE THAT WE BEGIN BV READING TRACK 9, SECTOR 2 SINCE SECTOR 1 


; CONTAINS THE COLD START LOADER, WHICH IS SKIPPED IN A WARN START 

DB 86 2100C4 

LXI 

H,CCP 

;BASE OF CP/M (INITIAL LOAD POINT! 


LOADl; jLOAD 

ONE MORE SECTOR 


DBBP C5 

POSH 

B 

;SAVE SECTOR COUNT, CURRENT TRACK 

DB 8 A D5 

PUSH 

n 

U 

iSAVE NEXT SECTOR TO READ 

DBBB E5 

PUSH 

H 

jSAVE DMA ADDRESS 

BB 8 C 4A 

HOV 

C,D 

5 SET SECTOR ADDRESS TO REGISTER C 

BB 8 i} CD 8 CF 8 

CALL 

CSETSEC 

jCQNTROLLER SET SECTOR ADDRESS FROM REGISTER i 

DB10 Cl 

PGP 

B 

; RECALL DMA ADDRESS TO B,C 

DBIl C5 

POSH 

B 

; REPLACE ON STACK FOR LATER RECALL 

mn CD 8 FF 8 

CALL 

CSETDMA 

;SET DMA ADDRESS FROM B,C 


; DRIVE 

SET TO 8 , TRACK SET, SECTOR SET, DMA ADDRESS SET 

DB15 CD12F8 

CALL 

DISKREAB 

jDIRECT DISK READ OF ONE SECTOR 

DB18 B7 

ORA 

A 

jANY ERRORS? 

BBl? C2F9DA 

JNZ 

HBOOT 

iRETRY THE ENTIRE BOOT IF AN ERROR OCCURS 


f 

S NO ERROR, WOVE TO NEXT SECTOR 

DBiC El 

POP 

H 

; RECALL DMA ADDRESS 

DBID 118@ge 

LXi 

D,128 

iDHA=DMA+128 

DB28 19 

DAD 

D 

;NEW DMA ADDRESS IS IN H,L 

DB21 D1 

POP- 

D 

; RECALL SECTOR ADDRESS 

DB22 Cl 

POP 

B 

1 RECALL NUMBER OF SECTORS REMAINING 




;AND CURRENT TRK 

BB23 95 

DCR 

B 

;SECTORS=SECTORS-i 

0B24 C.A3DBB 

02 

60CPM 

5 TRANSFER TO CP/M IF ALL HAVE BEEN LOADED 


♦ 

: WORE SECTORS REHAIN TO LOAD, CHECK FOR TRACK CHANGE 

DB27 14 

INR 

D 


BB28 7A 

HOV 

A,D 

iSECT0R=27?, IF SO, CHANGE TRACKS 

DB29 FEIB 

CPI 

27 


1)B2B CAgPDB 

iZ 

LOADl 

; CARRY GENERATED IF SECT0R<27 


■ END OF 

• CURRENT TRACK, 

GO TO NEXT TRACK 


NXTTRKi 



DB2E 1601 

MVI 

D, 1 

5 BEGIN WITH FIRST SECTOR OF NEXT TRACK 

DB30 0C 

INR 

c 

|TRACK=TRACK ^■1 


• SAVE REGISTER STATE, 

AND CHANGE TRACKS 

5B31 C5 

PUSH 

B 


j}B32 D5 

PUSH 

D 


DB33 E5 

PUSH 

H 


BB34 CD99F8 

CALL 

CSETTRK 1 TRACK ADDRESS SET FROH RESISTER C 

DB37 El 

POP 

H 


DB38 Bl 

POP 

D 


DB39 Cl 

POP 

B 




FILE; 
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DB3A 

C309DB 

3«P 

LOADl 

;FOR ANOTHER SECTOR 


4 


* » 

» * * 4 4 


? 

END OF 

LOAD OPERAT 

ION, SET PARAMETERS AND GO TO CP/M 


SQCPfi: 




i)B3!) 

3EC3 

HVl 

A,8C3H 

;C3 IS A JMP INSTRUCTION 

DB3F 

320000 

STA 

0 

;FGR 3HP TO NBOOT 

DB42 

2103DA 

LXi 

H,BHBOOT 

■jCBIQS NBOCT ENTRY POINT 

DB45 

220100 

SHLB 

4 

i 

■.SET ADDRESS FIELD FOR JMP AT 0 

DB48 

? 

320581 

STA 

5 

?FGR JMP TO BDQS 

BB4B 

2i06CC 

LH 

H,BDOS 

;BDOS ENTRY POINT 

DB4E 

220601 

SHLB 

h 

; ADDRESS FIELD OF JUMP AT 5 TO BDOS 

DB51 

i 

018000 

LXI 

8,80H 

; DEFAULT DMA ADDRESS IS 8BH 

DB54 

CD0FF8 

CALL 

CSETDMA 


D657 

3AC9DA 

LBA 

B00TFLA6 


DB5A 

FE00 

CPI 

0 

;ARE NE COLD? 

BB5C 

C2A1DB 

JN2 

GOCCP 

;NO, NE ARE HARM, SKIP INIT CYCLE 





jINIT THE lOFROfi IN THE SYSTEM 



II BUT FIRST HE MUST 

CHECK IF THERE IS AN I/O PROM PRESENT, 



|ANB MOVE THE JUMP 

TABLE AS REQUIRED 


PROHCHK 




DB5F 

2I00F8 

LXI 

H.IOPRQH 


BB62 

7E 

MOV 

A,M 


DB63 

FEC3 

CPI 

0C3H 

US THE BYTE A JMP? 

BBiS 

C2AIDB 

JNZ 

GOCCP 

jNO! 

DB68 

2C 

INR 

L 

! MAYBE 

DBB9 

2C 

INR 

i 

L 


CB6A 

2C 

INR 

L 


DBBB 

7E 

MOV 

A,M 


BBBC 

FEC3 

CPI 

8C3H 


DB4E 

C274DB 

■JNZ 

HELLO 

;NO! 

BB7i 

CB7FDB 

CALL 

MOVECTORS 

;YES 

DB74 0Ee9 HELLO 

MVI 

C,09 

;CPM SEND MESS COMMAND 

BB76 

115E80 

LXI 

B^SIGNDN 

;LOAD ADDR OF MESSAGE 

DB79 

CBBBCC 

CALL 

BOOS 

;SEND IT 

CB7C 

C3A1DB 

BMP 

GOCCP 



MO VECTORS; 





f CHECKS PROM FOR JUMP VECTOR ADDRESS AND MOVES THEM 
t TO BIOS IF NON’ZERO 

DB7F 

1107F0 

LXI 

D,IOPROH + 

7H sADDR OF NEM TABLE 

DB82 

2i07BA 

LXI 

H.BIOS + 71 

jNHERE THIS BIOS HANTS IT 

BBSS 

lA AGAIN; 

LDAX 

D 
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DBSfi FE08 


CPI 

8 

;IS THE HI BYTE 0? (IF IT IS, IT CANNOT 

DB88 CA94DB 


JZ 

SKIPIT 

;YES BE A REAL ADDRESS) 

EIB8B lA 


LDAX 

D 

;NO, HOVE 2 BYTES 

BB8C 77 


HQV 

H,A 


DB8D 13 


INK 

B 


DB3E 23 


INK 

H 


DB8F lA 


LDAX 

D 


DB98 77 


HQV 

H.A 


DB91 C39t!DB 


m? 

SKIP2 

;HOv‘E POINTERS TO NEXT INSTRUCTION 

DB94 23 

SKIPIT; 

INK 

H 


IfB95 13 


INX 

D 


DB96 23 

SKIP2; 

INK 

H 


1)897 23 


INX 

H 


DB98 13 


INX 

D 


BS99 13 


INX 

D 


DB9A 7B 

NEXTs 

nm 

A,E 

;NHERE ARE HE? 

DB9B FE33 


CPI 

30H 


DB9D DA85DB 


JC 

AGAIN 

;NOT DONE YET - LOOP AGAIN 

DBAS C9 

? 

SOCCPs 

RET 


iFINISHED - EXIT 


j 


El 

; ENABLE THE INTERRUPT SYSTEN 

DBAl 3A84S8 


IDA 

CPHDRIVE 

;CPH BOOT DRIVE 

DBA4 4F 


HQV 

C.A 

;SEND TO THE CCP 

DBAS C388C4 


JHP 

CCP 

;80 TO CP/M FOR FURTHER PROCESSING 


? 

? 


* * 

i i i i i 


? 

$ 

ERROR CHECKING READ AND 

NRITE RTN3 FOR 


? 

MICROHATIOH CBIGS 



! 

f 


AUGUST 1,1978 




WRITE 




DBA8 CD5ADC 


CALL 

SETUP 

jSELECT DISK, STEP TO CORRECT TRACK. 

DBAB CD1EF8 


CALL 

HRITEPROTECT 

?SETS Z IF DRIVE IS PROTECTED 

BBAE C2C2DB 


JNZ 

NRTOK 

;IF ENABLED, CONTINUE 

DBBl 1102DC 

y 

LXI 

D,PROTMES 

; WRITE PROTECT MESAGE 

DBB4 CD63DD 


CALL 

PRINT 

jPRINT IT 

DBB7 CD89DA 


CALL 

CONINl 

iWAIT FOR A CHAR i. UNLOAD HEAD 

DBBA FE03 


CPI 

3 

1 CONTROL C? 

DBBC CAF0DA 


n 

NBOOT 

; REBOOT IF SO, OTHERWISE 

DBBF C3A8D8 

NRTOK 

JHP 

WRITE 

;LOOP UNTIL MOT PROTECTED 

DBC2 3E15 


HVI 

A,DISKNRITE AND 8FFH ;LOM ADDRESS OF WRITE ROUTINE IN PROM 

DBC4 C3CCDB 

READ 

JHP 

READHRITE 


DBC7 CD5ADC 


CALL 

SETUP 

;SELECT DRIVE, STEP TO CORRECT TRACK 

DBCA 3EI2 


HVI 

A,DISKREAD AND 8FFH |LO« ADDRESS OF READ ROUTINE IN PROM 
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READSRITE 


DBCC 32D8DB 

STA 

RN+! 

sSTORE ADDRESS IN CALL INSTRUCTION 

DBCF AF 

XRA 

A 


DBDi 3220FC 

STA 

TRVl 

jZERO OUT ERROR COUNTERS 

DBD3 3221FC 

STA 

RETRYCOUNT 


RETRY; 




DBD6 F3 

DI 



DBD7 CD12F8 RN 

CALL 

DISKREAD 

SREAD OR WRITE SECTOR 
;SETS Z ON SUCCESSFUL READ 
;SETS C ON TRACK ERROR 

DBDA FB 

El 



D8DB 3E00 

HVi 

A,0 


DBDD C8 

RZ 


; SUCCESSFUL READ. RETURN 




;READ OR WRITE ERROR HANDLERS 

DBDE DAEBDB 

JC 

TRACKERROR 

;READ AND WRITE SET C ON TRACK ERROR 

DBEl 2121FC 

LXI 

H, RETRYCOUNT 


DBE4 34 

INR 

H 

; INCREHENT RETRYCOUNT 

DBE5 7E 

HDV 

A,H 


DBE6 E80F 

ANI 

0FH 

;16 TRIES 

DBE8 C2DSGB 

jNZ 

RETRY 

MF HORE THAN 18 RETRIES, TRY RESEEKINB 

TRACKERROR 



DBEB 212@FC 

LXI 

HJRYI 


DBEE 34 

INR 

H 

; INCREHENT NO OF TRACK ERRORS 

DBEF 7E 

NOV 

A.H 


DBF0 FE0A 

CPI 

10 

;ALLOW ONLY 18 TRACK ERRORS 

DBF2 3E01 

HVI 

A, I 

|CP/H CONVENTION FOR PERHANENT ERROR 

DBF4 C8 

RZ 


5 IF >10, RETURN A FAILURE 

DBFS CD83F8 

CALL 

CHOHE 

jELSE, HONE THE HEAD 

DBFS 3A42BB 

LDA 

TRACKl 


DBFE 4F 

HOV 

C, A 


DBFC CDB9F8 

CALL 

CSETTRK 1 RESEEK 

TO CORRECT TRACK 

DBFF C3D6DB 

JHP 

RETRY 


PROTHES: 



BC@2 0D8A0A5052 

DB 

CR, LF,LF, 'PROTECTED - INSERT' 

DC17 204i204E4F 

DB 

' A NON-PROTECTED DISK' 

DC2C 204i4E4428 

DB 

' AND TYPE RETURN' 

DC3C 0D0A8A284F 

DB 

CR,LF,LF,'!OR TYPE CTL C TO ABORT) ' ,CR,LF, 


j 

SETUP: 

j 

;SELECTS REQUESTED DRIVE IF IT IS ROT ALREADY SELECTED 
5 STEPS TO RE8UE3TED TRACK 

;SETS UP CONTROLLER TO TRANSFER DATA TO/FROH PROPER SIDE OF DISK 


DC5A 3A8DFC 

LDA 

NXTDISK 

;GET NEXT DISK NO. 

DCSD 4F 

HOV 

C,A 


DC5E 3A05FC 

LDA 

PRESDSK 

;GET PRES DSK. 

DC81 B9 

CHP 

C 

-.EQUAL? 

DC62 C408F8 

CNZ 

CSELDSK 

;IF NO, SELECT NEXT DISK 


I *»**«*»*«********«*«*t»***«H»» 
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;Fn FOR BUG IN C.l PROfi 

;IF YOUR DOUBLER HAS ANY PROR VERSION OTHER THAN C.l, YOU DON'T NEED THIS 
i LDA RD3TAT iSET DRIVE STATUS 

; ANI 20H iHEAD LOADED? 

; CNZ CSELDSK ;IF NO, CALL CSELDSK TO LOAD HEAD 

I ; (C REG ALREADY HAS PROPER DISK NUREER) 

SEND OF FIX FOR BUB IN C.l PROH ’ 


DC65 3A428S 

LDA 

TRACK! 

SGET RE0UESTED TRACK NUHBER 

DC68 4F 

nm 

C,A 


DC69 3A04FC 

LDA 

TRACK 

5 GET TRACK # WE'RE ON 

DCiC B9 

CHP 

c 

jARE WE ON RE8UESTED TRACK? 

DC6D C439F8 

CHI 

CSETTRK 

;IF NO, CALL CONTROLLER SETTRK ROUTINE 

DC73 3A4D80 

LDA 

SIDE 

SSIDE = 88 FDR SIDE 8 

DC73 iF 

RRC 


?SHIFT SIDE BIT INTO CARRY 

DC74 3F 

CRC 


SCOHPLENENT CARRY 

DC75 3A83FC 

LDA 

CTRBYTE 


DC78 17 

RAL 


SSHIFT CARRY INTO BIT 8, SET CARRY = BIT 

DC79 8F 

RRC 


S ROTATE IT BACK TO NORHAL 

DC7A 32g3FC 

STA 

CTRBYTE 


DC7D C9 

RET 






^ ^ ^ 


1 I/O DRIVERS FOR THE DISK FOLLON 


5 FOR NON 

, NE MILL SIHPLY STORE THE PARAHETERS ANAY FOR USE 


! IN THE READ AND NRITE SUBROUTINES 


SELDSKs iSELECT DISK GIVEN BY REGISTER C 


Tv 

SON ENTRY, BIT 0 OF REGISTER E CONTAINS THE DRIVE STATUS 


SBIT 8 IS 0 IF 

THE SELECTED DRIVE IS OFF LINE (NEVER BEEN SELECTED 


? 

SINCE LAST 

WARM BOOT) 


|NE NANI TO TES 

T THE DENSITY OF THE DISK IF IT IS OFF LINE 

DC7E 210888 

LXI 


S ERROR RETURN CODE 

DC81 79 

NOV 

A,C 


DC82 FE84 

CPI 

NDRIVES 

SVALID DRIVE NUHBER? 

DC84 D8 

RNC 


?NQ CARRY IF 4,5,... 

DC85 320DFC 

STA 

NXTDISK 

; DOUBLER SCRATCH LOG. FOR NEXT DI3K0P 


S DISK NUNBER IS IN THE PROPER RANGE 

DC38 7B 

HQV 

A,E 

SBET DRIVE STATUS FOR EVALUATION 

DC89 IF 

RAR 


SSET BIT 8 - LOGIN 3TAT INTO CARRY 

DC8A D49CDC 

crc 

SETPARH 

SCARRY IS CLEAR IF DRIVE IS JUST BEING 


^SELECTED FOR THE FIRST TIRE 
^SELECT DESIRED DRIVE, TEST DENSITY 


CONFUTE PROPER DISK PARAHETER HEADER ADDRESS 
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CALCDPE 


DC8D 3A8DFC 

m 

mmm. 

iSET DISK, IIKICH BACAKE PRESENT AFTER SEL 

DC9i 6F 

wov 

L,A 

;L=DISK NUHBER 0,1, 2, 3 

DC91 2600 

wn 

H,e 

iHISH ORDER ZERO 

DC93 29 

DAD 

H 

i*2 

0C94 29 

DAD 

H 


DC95 29 

DAD 

H 

;»8 

DC96 29 

BAB 

H 

itl6 (SIZE OF EACH HEADER) 

DC97 il33DA 

LXI 

D,DPBASE 


DC9A 19 

DAD 

D 

;HL=.DPBA3E(DISKN0»16) 

DC9B C9 

RET 




SETPARH; 

jt 

?TEST DISK mm 

IS BEING SELECTED FOR THE FIRST TIHE 


jON ENTRY, C RE6 CONTAINS DISK NUHBER TO BE SELECTED 


DC9C CD06F8 

CALL 

CSELDSK 

; SELECT DISK ROUTINE IN PROH 

DC9F CD03F8 

CALL 

CHOHE 

;HOHE THE DRIVE 

DCA2 0E82 

HVI 

C,2 

;STEP TO TRACK 2 

DCA4 CD09F8 

CALL 

CSETTRK 

;NHEN THE PRDH STEPS FROH TRACKS 0 OR 1 
iTO TRACK 2, IT TESTS THE DENSITY 
^DENSITY INFO IN DENBYTE IS NON VALID 

BCA7 CD8DDC 

CALL 

CALCDPE 

SCALCULATE DISK PARAHETER HEADER ADDRESS 

DCAA 0600 

NVl 

B,@ 

;FQR DAD 

DCAC 70 

HOV 

H,B 

;Z£RO OUT SECTOR TRANSLATE POINTER IN DPE 

DCAD 23 

INX 

H 

;«F DISK IS SINGLE DENSITY, HE'LL REPLACE IT) 

DCAE 70 

HOV 

H,B 


DCAF 3A08FE 

LDA 

RDSTAT 

;CHECK FOR DOUBLE SIDED DISK 

DCB2 E640 

ANI 

40H 

ilF BIT 6 IS LON, DISK IS DOUBLE SIDED 

DCB4 0EiE 

NVi 

C,DPB2-DPB0 

iOFFSET IN PARH TABLE FOR DOUBLE SIDED 

DCB6 CABBDC 

JZ 

DBLSIDD 


DCB9 0EB0 

HVI 

DBLSIDD 

C,0 

;NO OFFSET FOR SINGLE SIDED 

DCBB 3A81FC 

LDA 

DEN8YTE 

;NOB FIND DENSITY 

;FOR <C> PROH, DENBYTE = 8 FOR SD, 10H FOR DD 
SFQR <C1> PROH, DENBYTE = 0 FOR SD, 4 FOR DD 

DCBE B7 

ORA 

A 

5 DENBYTE = 8? 

DCBF 3E8F 

HVI 

A,DPB1-BPB8 

^OFFSET IN PARH TABLE FOR DOUBLE DENSITY 

DCCl C2CBDC 

JNZ 

DBLDEN 

{SINGLE DENSITY. 

DCC4 AF 

XRA 

A 

;NO OFFSET FOR SINGLE DENSITY 

DCC5 2B 

DCX 

H 

{POINT BACK TO BEGINNING OF DP HEADER 

DCC6 3673 

HVI 

H, TRANS AND 0FFH ;PUT IN LON BYTE OF TRANSLATE TABLE POINTER 

DCC8 23 

INX 

H 


DCC9 36DA 

HVI 

H, TRANS SHR 8 

{PUT IN HIGH BYTE OF TRANSLATE TABLE POINTER 

DCCB 81 . 

DBLDEN ADD 

C 

{ADD OFFSET FOR 1 SIDES 

DCCC 324900 

STA 

DENSIBE 

{STORE IN SCRATCH FOR USE BY UTILITIES 

DCCF 0E09 

HVI 

C,9 

{INDEX INTO PARH HEADER TO DPI FIELD 

DCDl 09 

DAD 

B 

{HL NON CONTAINS ADDRESS OF DPB ENTRY OF HEADER 

DCD2 EB 

XCHG 


{SAVE IT IN DE 
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DCD3 4F 

HOV 

C,A 

;HOVE DPB OFFSET TO C FOR DAD 

DCD4 218DBA 

LXI 

H,DPB8 

iPOINT TO BEGINNING OF PARH BLOCKS 

DCD7 89 

DAD 

B 

|NON HL POINT TO CORRECT PARH BLOCK 

DCD8 EB 

XCHG 


;NON DE POINT TO CORRECT PARH BLOCK 

5 RESTORE ADDRESS OF DPB ENTRY OF HEADER TO HL 

DCD9 73 

HOV 

H,E 

|PUT LON BYTE OF DPB ADDRESS INTO DP HEADER 

DCDA 23 

INX 

H 


DCDB 72 

HOV 

H,D 

;PUT HIGH BYTE OF DPB ADDRESS INTO DP HEADER 

DCDC C9 

RET 




i- 



HQHE; 

% 

;HOVE TO THE TRACK 88 POSITION OF CURRENT DRIVE 

TRANSLATE THIS CALL INTO A SETTRK CALL WITH PARAHETER 88 

DCDD 8E88 


HVI C,8 


SETTRK; 

;SET TRACK GIVEN BY REGISTER C 

DCDF 79 


HOV A,C 

DCEB 324288 


STA TRACK! ;JUST STORE TRACK NUHBER 


DCE3 C9 RET 


*t**»*t»»»*«**ttt»t*»*ttt»t«»i*t»t***»*t*i»»t**»»»M»** 

»»»♦*»»» 

»♦***»»*»»»****»**»*****♦**»*»«♦»***»*****»*«»»»**»***»*» 


SECTRAN! 

jSECTOR TRANSLATE ROUTINE 

;THIS ROUTINE HANDLES ONLY SINGLE BYTE SECTOR VALUES 
jANB SINGLE BYTE TRANSLATE TABLES 
;ON ENTRY, B=8, C=LQ6ICAL SECTOR NUHBER, AND DE POINT TO 
; THE TRANSLATE TABLE 

;ON EXIT, H=0 AND L CONTAINS THE PHYSICAL SECTOR NUHBER 

;IF DE=8B88H, DO NOT TRANSLATE. TUST PUT HOVE BC INTO HL, 

: INCREHENT !TO REFERENCE TO SECTOR 1, NOT 0), AND RETURN 

|IF DE <> 8088, «E ASSUHE THE DISK. IS SINGLE DENSITY 
;NORHALIZE C TO THE RANGE OF <8 TO 25) (BY SUBTRACTING 26 IF 
I NECESSARY) 

5 TRANSLATE NITH THE TABLE POINTED TO BY DE, AND, IF 26 NAS 
; SUBTRACTED, ADD IT BACK IN 

; RESULT IS RETURNED IN HL (IT'S IN THE RANGE <1 TO 52» 


DCE4 69 

HOV 

L,C 

jHOVE BC (LOG SECT) TO HL iPHYS SECT) 

DCE5 68 

HOV 

H,B 

|H IS NOW ZERO (SINCE B HAS) 

DCE6 23 

INX 

H 

•, INCREHENT FOR PHYSICAL SECTOR NUHBER 

DCE7 7A 

HOV 

A,D 


DCE8 B3 

ORA 

E 

iDE=0888H? 

iCE9 C8 

RZ 


5 IF YES, RETURN 

DCEA 2B 

DCX 

H 

■,DECR HL BACK TO LOGICAL SECT 1 

DCEB 79 , 

HOV 

A.C 




FILE; BI0S22/3 PRN 


PASE gl8 


BCEC D61A 

SUI 

n } 

ID 

DCEE DAF4DC 

JC 

UNDER26 

DCFl 861 A 

HVI 

B,26 

DCF3 6F 

HOV 

L.A 


UNDER26 


DCF4 19 

DAD 

0 

DCF5 7E 

HQV 

A,H 

BCF6 88 

ADD 

B 

DCF7 2688 

HVI 

H,8 

DCF9 6F 

HGV 

L,A 

DCFA C9 

RET 



? SECTOR NUHBER < 26? 


;IF NO, PUT 26 IN B (TO ADD IN LATER) 
;PUT (0-26 IN L RES 

SNOW L IS IN RAN6E OF 8-25 
5 INDEX INTO TRANSLATE TABLE 
;8ET PHYSICAL SECTOR NUHBER FROH TABLE 
5 ADD OFFSET FOR SIDE I 

5 PUT BACK IN L RES 


»■ 



SETSEC; 

sSET SECTOR ROUTINE 



; DECIDES 

IF DISK IS SINGLE OR DOUBLE SIDED 



sNORHALIZES THE SECTOR NUHBER (1-26 IN SD, 1-52 IN DD) 



; UPDATES 

SIDE 



sJUHPS TO CONTROLLER SET SECTOR ROUTINE 

DCFB 21i6FC 

LXI 

H,DENHAP 

;POINT TO DENSITY TABLE 

DCFE 3A8DFC 

LDA 

NXTDISK 

;6ET DISK NUHBER 

DD81 85 

ADD 

L 

; INDEX INTO TABLE 

DD02 6F 

HOV 

L,A 


DDi3 7E 

HOV 

A,H 

;GET DENSITY BYTE 

DD@4 214D88 

LXI 

H,SiDE 


DD87 3688 

HVI 

H,0 

; INITIALIZE SIDE TO 8 

DDS9 B7 

ORA 

A 

^SINGLE DENSITY? 

BD8A 79 

HOV 

A.C 

iHOVE SECTOR NUHBER TO ACCUHULATOR 

DDBB CAIBDD 

JZ 

SDSECT 

; DOUBLE DENSITY 

DD0E D61A 

SUI 

2h 

;IF DOUBLE DENSITY, SECTOR # < 53? 

DD18 D61B 

SDSECT SUI 

27 

;IF SINGLE DENSITY, SECTOR i < 27? 

BD12 FAiSDD 

JH 

SIDE8 

;IF YES, SIDE=B, USE SECTOR NUHBER IN 1 
■,SIDE I 

DD15 34 

INR 

H 

;SET SIDE=1 

Diie 3C 

INR 

A 


DD17 4F 

HOV 

C,A 

jUSE SECTOR NUHBER IN ACCUHULATOR 

DD18 C38CF8 

SIDES JHP 

CSETSEC 

5 GO TO CONTROLLER SET SECTOR ROUTINE 


; (SECTOR NUHBER IS IN C RES) 


; it«**t»*ttt»»*J»***t«**«**t**t«*t****»»*ititt»t»*H»i*t* 

! * * 

; * SIHPLE 1/0 HANDLERS (HOST BE FILLED IN BY USER) * 

I » » 

• ***W***»tt*t***»«*»t*tt»t**t»**«**»*»*»f»*»**»t*tt*«t» 

S HARDWARE UART CONSOLE ROUTINES 

000D = CR E8U 0BH ; ASCI I <CR> 

aeSA = LF E8U 8AH 5<LF> 



FILE: BIGS22/8 PRN 


PABE 01? 


CONST; ;CONSOLE STATUS, RETURN BFFH IF CHARACTER READY, 00H IF NOT 


j 


DDIB 3A8AFE 

CONSTAT LDA 

UARTSTAT 

DDIE E6@2 

ANI 

2 

DD20 C8 

RZ 


DD21 3EFF 

HVI 

AJFFH 

BD23 CS 

RET 



f 

CONIN: jCONSOLE CHARACTER INTO REBISTER A 


BD24 CDIBDD 

CALL 

CONSTAT 

DD27 CA24DD 

U 

CONIN 

DD2A 3A02FE 

LDA 

UARTDATA 

DD2D E67F 

ANI 

7FH 

DD2F C9 

RET 



;*♦**»»** 
CONOUT: jCQNSOLE CHARACTER OUTPUT FROM REBISTER C 


DD30 3ABAFE 

LDA 

UARTSTAT 

DD33 £681 

ANI 

81 

DD35 CA30DD 

JZ 

CONOUT 

DD38 79 

MOV 

A,C 

DD39 32B2FE 

3TA 

UARTDATA 

DD3C C9 

RET 



PABE 
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? 

LIST; ;THIS ROUTINE IHPLEHENTS THE I/O BYTE FUNCTION FOR LST: DEVICES 


i I/O BYTE FOR LIST DEVICE IS IfiPLEHENTED AS FOLLOHS; 

» TTY = HULTLIST !HH HULTI I/O BOARD SERIAL PORT#l) 

* CRT = CONOUT (HM DOUBLER SERIAL PORT) 

* LPT = CENTLIST (CENTRONICS 703/779 TYPE LIST DEVICE) 

* ULI = OPTIONAL DRIVER SELECTED BY USER 


BD3D 3A0300 
BD40 E6C8 
DD42 CA5FBD 
DD45 17 
DD4B D230DD 
D049 17 
DD4A D260DD 

LIST!: 


IF GODBIO 

iCONDITIONAL FOR THE GODBOUT I/O BOARD FOLLQNS; 

IN 

2IH 


AN I 

41K 

iBIT 0 IS TRANSHITTER BUFFER EHPTY 

CPI 

I 

;BIT 6 IS -DATA SET READY FROH PRINTER 

mi 

LISTI 

5 NOT READY YET 

HOV 

A,C 

ILIST BETS CHARACTER IN C REG. 

OUT 

20H 

;DATA PORT 

ENDIF 


jSTOP ASSEHBLING FOR THE GODBOUT ONLY 


IF SSHIO 

;LIST ROUTINE FOR SSH 2P+2S I/O BOARD 

IN 

n 

1 


AN I 

8iH 

SPRINTER READY AND U READY 

CPI 

80H 


DNZ 

LIST! 


HOV 

A,C 


CPI 

0AH 

5 FOR AN AUTO LF DEVICE 

RZ 



OUT 

j 


ENDIF 



IF DPIO 


SLIST ROUTINE FOR DELTA PRODUCTS CPU BOARD NITH 8251 UART 

IN 

01 

sSET PRINTER STATUS 

ANI 

8IH 

SPRINTER READY AND TS READY 

CPI 

81H 

SUART READY, DATA SET READY (BOTH) 

JNZ 

LISTI 

;NOT READY, NAIT TILL READY 

HOV 

A,C 


OUT 

00 

SPRINTER READY, OUTPUT DATA BYTE 

ENDIF 


SSTQP CONDITIONAL ASSEHBLY 


IF NOT (GODBIO OR SSNIO OR DPIO OR USERLST OR HULTLIST OR CENTLIST) 
RET ;THEN RETURN BECAUSE IT IS NOT SUPPORTED 

ENDIF 

IF (GODBIO OR SSHIO OR DPIO OR USERLST OR HULTLIST OR CENTLIST) 


LBA 

IQBYTE 

5 GET THE CURRENT I/O STATUS 

mi 

n 

8C8H 

('HULTLST 

SRH HULTI I/O BRD SERIAL PORT AS LIST 

RhL 

— ' ■ 


mt 

CONOUT 

SDOUBLER CONSOLE AS LIST 

RAL 

jrc 

CENTLST 

S CENTRONICS PARALLEL PRINTER DRIVER 



FILE; BIQS22/8 PRN 


PAGE 021 


!F USERLST ;AREA FOR USER DEFIHED LIST ROUTINE 

TUARTBQUT: 


DB4D DB30 

IN 

TUARTBS 

;CHK STATUS 

DD4F E680 

AN! 

TUARTBE 

; BUFFER EMPTY? 

DD51 CA4GDD 

JZ 

TUARTBOUT 

;LOOP IF NOT 

GD54 79 

HOV 

A,C 

i FETCH OUTPUT CHR 

DD55 B7 

ORA 

A 

;TEST PARITY 

DD56 E25BDB 

JPO 

TUARTBOl 

iSKIP IF ALREADY ODD 

I)D59 Fi80 

ORI 

88H 

; INSERT PARITY BIT 


TUARTBOl! 



DOSB D331 

OUT 

TUARTB 

;NRITE CHR 

DD5D C9 

RET 


;EXIT 


ENDIF 



0D5E C9 

RET 


(HEY NATCH OUT.. DON'T GET RID OF THIS <RET> 


HULTLST 




IF HUL 

TLIST ;BE81 

N CONDITIONAL ASSEMBLY FOR MM I/O BOARD SERIAL OUT 


IN 

UARTIC 

;GET STATUS 


ANI 

81H 

{CHECK TO SEE IF TRANSMITTER BUFFER IS EMTPY-- 


CPI 

81H 

;AND IF DSR IS ACTIVE 


•INZ 

HULTLST 

iNAIT TO SEND IT IF NOT... 


HOV 

A,C 

;GET CHARACTER TO OUTPUT 


OUT 

UARTID 

{SEND IT TO LIST DEVICE 


ENDIF 


{STOP ASSEMBLING FOR THE MICROMATIDN I/O BOARD 

DD5F C9 

RET 




CENTLST 




IF CENTLIST 

{LIST ROUTINE FOR CENTRONICS 703/779 PRINTER 


im 

A 

{CLEAR CARRY FLAG 


IN 

STATUS 

{GET STATUS BYTE 


RAL 


4 


RAL 




RAL 


{CHECK BIT 5:PRINTER BUSY??? 


OC 

CENTLST 

J 


AKMAIT IN 

STATUS 

5 


ANI 

80H 

{CHECK BIT 7;/0BF??? !EMPTY=HIGH) 


CPI 

80H 

! 


JNZ 

AKHAIT 

5 


MOV 

A,C 

{GET CHARACTER FROM C REG. 


CPI 

OAH 

{PRINTER IS AUTO LINEFEED 


RZ 




ORI 

80H 

{RESET DATA STROBE BIT FIRST... 


OUT 

DATAPORT 

{OUT TO PRINTER 


OUT 

PORTA 

{THIS SETS THE /OBF FLAG OF STATUS PORT 


ANI 

7FH 

{GENERATE DATA STROBE; BIT 7 OF PORT0 


OUT 

DATAPORT 

? 


Ofil 

88H 

? 


OUT 

DATAPORT 

? 


ENDIF 


{END OF LIST ROUTINE FOR CENTRONICS 779 

BD48 C9 

RET 
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ENDIF :EKI) OF LIST DRIVER BLOCK... (DO NOT REMOVE. 




LISTST: ;RETURN 

LIST STATUS (0 IF NOT READY, 1 IF READY) 

DDSi 

AF 

m 

A 50 IS ALWAYS OK TO RETURN 



PONCHj 


BD62 

C9 

READER; RET 




PRINT; 



DD63 lA 

LDAX 

D 

;GET NEXT BYTE TO PRINT 

DD64 FE24 

CPI 

■r 

;END? 

DD66 C8 

RZ 



DD67 4F 

HOV 

C,A 


DDSe CD8CDA 

CALL 

CONOUTl 

; OUTPUT CHARACTER TO CONSOLE 

DD6B 13 

INX 

D 

! POINT TO NEXT CHARACTER 

DD6C C363DD 

TKP 

PRINT 



) 

j***«****tt»t*tt*»t*»ti****t****;^*»**t****t*t*»***««t**ttt**** 

; NARNIHG 

; END OF CODE MUST BE LESS THAN 
; THE VALUE OF ENDCODE 


DD88 = ENDCODE EQU BIOS + 388H 


tt*»t*»**»»**»»***»**t»»t*»**i»t»»»»»«»t»*»»»t***»»t*»»»* 
* * 

* THE REMAINDER OF THE CBIOS IS RESERVED UNINITIALIZED 

* DATA AREA, AND DOES NOT NEED TO BE A PART OF THE 

* SYSTEM HEWORY IMAGE (THE SPACE HUST BE AVAILABLE, 

* HOWEVER, BETWEEN BEGDAT AND ENDDAT). 

i ♦ 

tt****t*t»«*ttt**«*i**»***t*»**»«*t»»*tt»»ttt»t*tf»tt**f 


■ SCRATCH RAH 


DD6F = 

BEGDAT 

EQU 

$ 

DDiF 

DIRBUF 

DS 

128 


DDEF 

ALV0 

DS 

DE8E 

CSVB 

DS 


AREA FOR BDOS USE 

;BE81NINB OF DATA AREA 
; DIRECTORY ACCESS BUFFER 


31 sALLOCATION VECTOR 0 

32 ; CHECK VECTOR 8 



ILE: BI0S22/8 
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DE2E 

ALVi 

DS 

31 

-.ALLOCATION VECTOR 1 

DE4D 

CSVl 

DS 

32 

; CHECK VECTOR 1 

DE6D 

? 

ALV2 

DS 

31 

ALLOCATION VECTOR 2 

DE8C 

CSV2 

? 

DS 

32 

; CHECK VECTOR 2 

DEAC 

ALV3 

DS 

31 

i ALLOCATION VECTOR 3 

DECS 

CSV3 

DS 

32 

; CHECK VECTOR 3 

DEEB = 

< 

ENDDAT 

EQU 

$ 

iEND OF DATA AREA 

817C = 

DATSIZ 

? 

i- 

EOU 

$-BE6DAT 

;SIZE OF DATA AREA 

BEEB 

END 
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PASE 001 


OOOO = 


.0038 = 


FOOO = 


0004 = 


0000 = 
0000 = 


0000 = 
FFFF = 
0000 = 
0000 = 
0000 = 


mnmumtmutmttmmutmmmmmmttmtmm 

CUSTOMIZED BIOS FOR MICROMATION ’DOUBLER’ AS USED WITH t 
<C> OR <C1> PROM <0N DOUBLER). I 

SINGLE/DOUBLE DENSITY, SINBLE/DOUBLE SIDED. t 

KITH DRIVERS FOR MM MULTI I/O BRD IN SINGLE USER CONFIGURATION! 

COPYRIGHT (C) 1979, MICROMATION AMD DIGITAL RESEARCH. ! 

LAST UPDATED ON FEB 12, 1980 t 

REVISED FOR CAVRO STD SYSTEM ! 

VERSION 2.0 REV & OCT 27,1981 t 

t!!!!tt!tt!!t!!t!!tti!!!t!!tt!!!i!l!tt!!!!tt!!!!tttttl!t!!!!!!t! 


mtmmmnumtmtmmmtttnmtmtnmtmtmmttmumutm 

TRUE EBU -1 ! FALSE EBU 0 

mtutmmmummmmnntmmttmtmtmmmmntmttmmtt 

!THE FOLLOWING LABELS HAY BE USER DEFINED FOR DIFFERENT OPERATING ENVIRONMENTS: 


HSIZE 


EBU 56 


SIZE OF OPERATING SYSTEM IN KILOBYTES 
(CURRENTLY 48K). THIS NUMBER MUST BE 
CHANGED FOR LARGER SYSTEMS. 


lOPROM EBU OFOOOH 


NDRIVES EBU 4 ; NUMBER OF DISK DRIVES SUPPORTED BY 

iTHIS CBIOS 


I- 

t 

t 

t 

t 

t 

t- 

I 


I/O BYTE FDR LIST DEVICE IS IMPLEMENTED AS FOLLOWS: 

•TTY' = HULTLIST (MM MULTI I/O BOARD SERIAL PORTtl) 

•CRT" = CONOUT (MM DOUBLER SERIAL PORT) 

•LPT" = CENTLIST (CENTRONICS 703/779 TYPE LIST DEVICE) 
•ULl* = OPTIONAL DRIVER TO BE SELECTED BY li^R (SEE BELOW) 


==>UPDATED: 2-12-80 


LIST DEVICE EBUATES: (THESE COULD BE SET FALSE TO SAVE BIOS SPACE IF 
USER LIST DRIVER IS TOO LARGE TO FIT OTHERWISE) 


MULTLIST EBU FALSE 

CENTLIST ' EBU FALSE 


LIST DEVICE OPTIONS: SET ONLY ONE FLAG TRUE FOR DESIRED DRIVER AS 'ULl' 


NONE 

EBU 

FALSE 

;N0 'ULl' FUNCTION DESIRED 

GODBIO 

EQU 

TRUE 

;GODBOUT I/O BOARD AS LST: 

SSMIO 

EQU 

FALSE 

; SOLID STATE MUSIC 2S+P AS LST: 

DPIO 

EQU 

FALSE 

; DELTA PRODUCTS CPU BOARD AS LST: 

USERLST 

EBU 

FALSE 

;SET FLAG TO INSERT USER DEFINED LST: 


THIS CODE MUST BE INSERTED IN BIOS UNDER LIST: 
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;AND INITIALIZATION CODE UNDER (COLD) GDOT 


■BIAS' IS ADDRESS OFFSET FROH 3400H FOR HENDRY SYSTEHS 
THAN 20K (REFERRED TO AS 'B' THROUGHOUT THE TEXT). 


9000 = 

BIAS 

EQU 

(HSnE-20) 41024 


C400 = 

CCP 

EQU 

3400H+BIAS 

iBASE OF CCP 

CC06 = 

BDOS 

EQU 

CCP+806H 

;BASE OF BDOS 

DAOO = 

BIOS 

EQU 

CCP+1600H 

jBASE OF BIOS 

0003 = 

loBYTE 

EQU 

0003H : INTEL I/O BYTE 


CBIOS FOR HICROHATION DOUBLE DENSITY CONTROLLER 


F800 = 

CONTROLLER 

EQU 

F800 = 

PROH 

EQU 

FCOO = 

BUFF 

EQU 


\ 4 4 4 

4 4 4 


; 4 



; 4 



; 4 



: 4 4 4 

4 4 4 


0F8OOH ; ADDRESS OF CONTROLLER 

CONTROLLER ; ADDRESS OF DOUBLER PROH , 

CONTR0LLER+4OOH ; ADDRESS OF SCRATCH RAH 


I } t M t 4 4 t t » t t t t t M t t t 

4 

HARDHARE PORT DEFINITIONS 4 

4 

444444444444444444444 


> 


FEOO = 

HRCONT 

EQU 

CONTR0LLER+6OOH 

FEOO = 

RDSTAT 

EQU 

HRCONT 

FEOl = 

HRCLK 

EQU 

HRCONT+1 

FE02 = 

UARTDATA 

EQU 

HRCONT+2 

FE05 = 

RDttARK 

EQU 

HRCONT+5 ; LOADS THE HEAD 

FEOA = 

UARTSTAT 

EQU 

HRCONT+OAH 


5 t 

4 4 4 4 4 4 

4444444444444444444444 


4 4 

4 RAH VARIABLE DEFINITIONS 4 

4 4 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 t 


FCOl =, 

5 

DENBYTE 

EQU 

BUFF+l 

iO FOR SINGLDE DEN., 10 FDR DBL.DEN 

FC03 = 

CTRBYTE 

EQU 

BUFF+3 

;RAH IHA6E OF RDSTAT OR HRCONT 

FC04 = 

TRACK 

EQU 

BUFF+4 

; TRACK NUHBER FOR CURRENT DRIVE 

FC05 = 

PRESDSK ' 

EQU 

BUFF+5 

i CURRENTLY LOGGED IN DRIVE NO. 

FCOA = 

SECTOR 

EQU 

BUFF+OAH 


FCOD = 

NXTDISK 

EQU 

BUFF+ODH 

; DRIVE NO. FOR NEXT 1/0 (READ/HRITE) 

FCIO = 

STEP! I HE 

EQU 

BUFF+lOH 

iSTEP TIHE IN H5EC 

FC16 = 

DENHAP 

EQU 

4 

BUFF+16H 

|F0R EACH OF 4 DRIVES, 
iOO FOR SINGLE DENSITY 
;10H FOR <C> PROH 

j04H FOR <C1>PR0H FOR DOUBLE DENSITY 

FC20 = 

TRYl 

EQU 

BUFF+20H 

; CBIOS ERROR CHECK 

FC21 = 

RETRYCOUNT 

EQU 

BUFF+21H 

; CBIOS TRK. /SECTOR ERROR CHK. BYTE 
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FC22 = CURRBRIVE EQU BUFF+22H 5 CBIOS DISK, LOGGED IN BEFORE NARHBOOT 

mmtummmnmttmmmmmt 

t t 

I LIST DEVICE EQUATES » 

t t 

mtmmmtmmmmmnmmmt 

IF (NULTLIST OR CENTLIST) 

; ASSEMBLED ONLY FOR PORTS ON HICROHATION HULTI I/O BOARD 

t 

t PORT EQUATES: CHANGE VALUE OF UARTIC TO RE-HAP THE PORT DECODING OF I/O BOARD 

< 

t NOTE:DECODINB OF BOARD I/O SPACE OCCURS ALONG 32 PORT BOUNDRIES 
t (I.E.;A5-A7 ARE SIGNIFICANT ADDRESS BITS FOR I/O BLOCK) 


ttuututttututtttnuttttttnttuttttuuuuttittttutututtutittttutM 

UARTIC 

EQU 

0 

5 CONTROL PORT OF 8251 11 (1C 4B) 

mmmmtutnmtmmmmntmutmmimmmmmmtmmmt 

BASE 

EQU 

UARTIC 

; EQUATE BASE FOR REST OF TABLE 

UARTID 

EQU 

BASE+1 

jDATA PORT OF UART 11 

UART2C 

EQU 

BASE+4 

iUART 12 (IC 5B) 

UART2D 

EQU 

BASE+5 


UART3C 

EQU 

BASE +8 

jUART 13 (1C 7B) 

UART3D 

EQU 

BASE+9 • 


UART4C 

EQU 

BASE+OCH 

jUART #4 (IC 9B) 

UART4D 

EQU 

BASE+ODH 


P8255 

EQU 

BASE+1 OH 

i8255 CONTROL REG. (IC lA) 

PORTC 

EQU 

BASE+IIH 


PORTS 

EQU 

BASE+1 2H 


PORTA 

EQU 

BASE+1 3H 


RTC 

EQU 

BASE+1 4H 

58253 TIHER/COUNTER CONTROL PORT (IC 3B) 

TIMER2 

EQU 

BASE+15H 

5 COUNTER 12 

TINERl 

EQU 

BASE+liH 

5 COUNTER tl 

T I NERO 

EQU 

BASE+17H 

5 COUNTER #0 

PORTO- 

EQU 

BASE+1 8H 

;PARALLEL OUTPUT LATCH (1C 2A) 

PORTl 

EQU 

BASE+19H 

SPARALLEL OUTPUT LATCH (IC 3A) 

USERPRT EQU 

BASE+ICH 

;BASE OF USER DEFINED I/O PORTS (PORTS IC-IFH) 

ttmmmnmmtnmntmtnmmtmtmtnnmumntmmtntmtt 


ENDIF 


5 STOP CONDITIONAL ASSEMBLY 


IF CENTLIST 
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jCOKDlTIONAL ASf! FOR MH MULTI I/O BRD FOR USE WITH CENRDNICS PRINTER 



COMMAND 

EOU 

P8255 


; COMMAND WORD REGISTER 


DATAPORT 

E8U 

PORTO 


5 PARALLEL DATA OUTPUT LATCH TO PRINTER 


STATUS 

E8U 

PORTC 


jSTATUS BITS:OBF/=BIT 7 






} ACK/=B1T 6 






; BUSY=BIT 5 



ENDIF 



iEND OF PORT DEFINITIONS FOR CENTLIST 


IF USERLST 

;AREA FOR USER LIST ROUTINE EQUATES 


ENDIF 






; * > t 

MM 

M M M M 

t 

ttttttttttttt 


; t 




t 


; t 

JUMP VECTORS TO ROUTINES 

IN CONTROLLER PROM t 


; t 




I 


; t tt 

i 

MM 

M M M 4 t 

t 

ttttttttttttt 

F803 = 

5 

CHOME 

E8U 

PROM+3 


; HOMES THE DISK 

F806 = 

CSELDSK 

EQU 

PROM+6 


1 SELECTS DRIVE POINTED TO BY C REG 






;AND LOADS HEAD 

F809 = 

CSETTRK 

E8U 

PROM+9 


5 STEPS DRIVE TO TRACK (C) 

F80C = 

CSETSEC 

EQU 

PROM+OCH 


iSET SECTOR NUMBER 

F80F = 

CSETDMA 

EQU 

PROM+OFH 


|SET DMA ADDRESS 

F815 = 

DISKWRITE 

EQU 

PR0M+15H 


iWRITE SECTOR 

F812 = 

DISKREAD 

EQU 

PR0N+I2H 


{SECTOR READ 

F81B = 

SETDEN 

EQU 

PROH+IBH 


{TEST DENSITY OF CURRENT DRIVE 

FBIE = 

WRITEPROTECT 


EQU PROM+lEh 

{CHECK FOR WRITE PROTECT 


i * t t 

MM 

t t t t t t t t 

t 

ttttttttttttt 

DAOO 

i 

ORG 

BIOS ; ORIGIN OF THIS PROGRAM 


; » » 1 

! 

MM 

M M M M 

t 

ttttttttttttt 

002C = 

i 

NSECTS 

EQU 

($-CCP)/128 


{WARM START SECTOR COUNT 

0000 = 

BOOTBASE 

EQU 

0 


{BOTTOM OF USABLE MEMORY 

0004 = 

CPMDRIVE 

EQU 

BOOTBASE+4 


{LOC. 04 OF PAGE 00. CURRENT CPM DISK 

0042 = . 

TRACK 1 

EQU 

B00TBASE+42H 


{TEMPORARY STORAGE FOR TRACK NUMBER 

0049 = 

DENSIDE 

EQU 

B00TBASE+49H 


{INFO ON DENSITY AND SIDE FOR UTILITIES 

004D = 

SIDE 

EQU 

B00TBASE+4DH 






tttttlXttttttttttttttttttttt 

» 

» JUMP VECTORS FOR INDIVIDUAL SUBROUTINES 
t USED BY ENTIRE SYSTEM 

t 


DAOO C3CADA 


BOOT 


;COLD START 
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DA03 C3D9DA 

6MBQ0T 

JMP 

MBOOT 

{WARM START 

DAOS C3FFDC 


JMP 

CONST 

; CONSOLE STATUS 

DA09 C308DD 

CONINi 

JMP 

CONIN 

5 CONSOLE CHARACTER IN 

DAOC C3HDD 

CONOUTl JMP 

CONOUT 

; CONSOLE CHARACTER OUT 

DAOF C321DD 


JMP 

LIST 

;LIST CHARACTER OUT 

DA12 C341DD 


JMP 

PUNCH 

•(PUNCH CHARACTER OUT 

DA15 C341DD 


JMP 

READER 

{READER CHARACTER OUT 

DA18 C3C1DC 


JMP 

HOME 

{BIOS MOVE HEAD TO HOME POSITION 

DAIB C3i2DC 


JMP 

SELDSK 

{BIOS SELECT DISK (DOESN’T ACTUALLY SELECTS) 

DAIE C3C3DC 


JMP 

SETTRK 

{BIOS SET TRACK 

DA21 C3DFDC 


JMP 

SETSEC 

{BIOS SET SECTOR 

DA24 C30FF8 


JMP 

CSETDMA 

{CONTROLLER SET DMA ADDRESS 

DA27 C3ABDB 


JMP 

READ 

{BIOS READ DISK 

DA2A C38CDB 


JMP 

WRITE 

{BIOS WRITE DISK 

DA2D C340DD 


JMP 

LISTST 

{RETURN LIST STATUS 

DA30 C3C8DC 

• 

JMP 

SECTRAN 

{SECTOR TRANSLATE 


itttttttttttttttttttttttttt 

FIKED DISK PARAMETER BLOCK TABLES FOR FOUR 
DRIVE SYSTEM 

ttttttttttttttttttttttttttt 


DA33 = 

DPBASE 

EQU 

i {BASE OF DISK PARAMETER BLOCKS 


\ 

9 

J 

DISK 

PARAMETER BLOCK 

FOR DRIVE NO. 00 

DA33 73DA0000 

DPEOs 

DM 

TRANS, OOOOH 

{TRANSLATE TABLE 

DA3700000000 


DW 

OOOOH,OOOOH 

{SCRATCH AREA 

DA3B 4EDDBDDA 


DW 

DIRBUF,DPBO 

{DIR BUFF, PARM BLOCK 

DA3F EDDDCEDD 


DW 

CSVO.ALVO 

{CHECK, ALLOC VECTORS 


5 

5 

DISK 

PARAMETER BLOCK 

FOR DRIVE NO. 01 

DA43 73DAOOOO 

DPEl! 

DW 

TRANS, OOOOH 

{TRANSLATE TABLE 

DA47 00000000 


DW 

OOOOH, OOOOH 

{SCRATCH AREA 

DA4B 4EDDBDDA’ 


DW 

D1RBUF,DPB0 

{DIR BUFF, PARM BLOCK 

DA4F 2CDE0DDE 


DW 

CSVt,ALVl 

{CHECK, ALLOC VECTORS 


i 

> 

DISK 

PARAMETER BLOCK 

FOR DRIVE NO. 02 

DA53 73DAOOOO 

1 

DPE2: 

DW 

TRANS, OOOOH 

{TRANSLATE TABLE 

DA57 00000000 


DW 

OOOOH, OOOOH 

{SCRATCH AREA 

DA5B 4EDD8DDA 


DW 

DIRBUF.DPBO 

{DIR BUFF, PARM BLOCK 

DA5F 6BDE4CDE 


DW 

CSV2,ALV2 

{CHECK, ALLOC VECTORS 


1 

• 

I 

DISK 

PARAMETER BLOCK 

FOR DRIVE NO. 03 

DA63 73DAOOOO 

i 

DPE3; 

DW 

TRANS, OOOOH 

{TRANSLATE TABLE 

DA67 00000000 


DW 

OOOOH, OOOOH 

{SCRATCH AREA 

DAiB 4EDDBDDA 


DW 

DIRBUF.DPBO 

{DIR BUFF, PARM BLOCK 

DA6F AADE8BDE 


DW 

CSV3,ALV3 

{CHECK, ALLOC VECTORS 
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SINGLE DENSITY SECTOR TRANSLATE TABLE 


DA73 

01070D13 

TRANS: DB 

1,7,13,19 

; SECTORS 1,2, 3, 4 

DA77 

19050B11 

DB 

25,5,11,17 

-.SECTORS 5,6,7, 8 

DA7B 

1703090F 

DB 

23,3,9,15 

5 SECTORS 9,10,11,12 

DA7F 

1502080E 

DB 

21,2,8,14 

{SECTORS 13,14,15,16 

DA83 

141A0Zi0C 

DB 

20,26,6,12 

{SECTORS 17,18,19,20 

DA87 

121B040A 

DB 

18,24,4,10 

{SECTORS 21,22,23,24 

DA8B 

lOii 

DB 

• 

16,22 

{SECTORS 25,26 



1 

jDISK PARAMETER BLOCK FOR S1N6LE DENSITY SINGLE SIDED DISKS 



1 

HITH BLOCK SIZE BLKSZ = 1024 BYTES / BLOCK 



DPBO: 



DA8D 

lAOO 

DW 

26 

(SECTORS PER TRACK 

DA8F 

03 

DB 

3 

{BLOCK SHIFT FACTOR 

DA90 

07 

DB 

7 

{BLOCK MASK 

DA91 

00 

DB 

0 

{NULL MASK 

DA92 

F200 . 

DH 

242 

{DISK SIZE-1 (NO. OF BLOCKS/DISK-1) 

DA94 

3F00 

DM 

63 

{NO. OF DIRECTORY ENTRIES MAX.-l 

DA96 

CO 

DB 

192 

{DIRECTORY ALOCATION SPACE MASK, I ST BYTE 

DA97 

00 

DB 

0 

{SAME AS ABOVE, 2 ND BYTE 

DA98 

1000 

DH 

16 

{CHECK SIZE - (64 DIR ENTRIES DIV BY 4) 

DA9A 

0200 

DH 

2 

{NO. OF SYSTEM (NOT ACCESSABLE) TRACKS 



DPBl! 

;DISK PARAMETER BLOCK FOR DOUBLE DEN., SINGLE SIDED DISKS 



i 

HITH BLOCK SIZE BLKSZ = 2048 BYTES / BLOCK 

DA9C 

3400 

DH 

52 

{SECTORS PER TRACK 

DA9E 

04 

DB 

4 

{BLOCK SHIFT FACTOR 

DA9F 

OF 

DB 

15 

{BLOCK MASK 

DAAO 

01 

DB 

1 

{EXTENT MASK 

DAAl 

F200 

DH 

242 

{DISK SIZE-1 (NO. OF BLOCKS/DISK-1) 

DAA3 

7F00 

DH 

127 

{NO. OF DIRECTORY ENTRIES MAX.-l 

DAA5 

CO 

DB 

192 

{DIRECTORY ALOCATION SPACE MASK, 1 ST BYTE 

DAA& 

00 

DB 

0 

{SAME AS ABOVE, 2 ND BYTE 

DAA7 

2000 

DH 

32 

{CHECK SIZE 

DAA9 

0200 ■’ 

DH 

2 

{NO. OF SYSTEM (NOT ACCESSABLE) TRACKS 



! 

DPB2! 

;D1SK PARAMETER BLOCK FOR SINGLE DEN., DOUBLE SIDED DISKS 



1 

HITH BLOCK SIZE BLKSZ = 2048 BYTES / BLOCK 

DAAB 

3400 

5 

DH 

52 

{SECTORS PER TRACK 

DAAD 

04 

DB 

4 

{BLOCK SHIFT FACTOR 

DAAE 

OF 

DB 

15 

{BLOCK MASK 

DAAF 

01 

.-■DB 

1 

{EXTENT MASK 

DABO 

F200 

■' DH 

242 

{DISK SIZE-1 (NO. OF BLOCKS/DISK-1) 

DAB2 

7F00 

DH 

127 

{NO. OF DIRECTORY ENTRIES MAX.-l 

DAB4 

CO 

DB 

192 

{DIRECTORY ALOCATION SPACE MASK, 1 ST BYTE 

DAB5 

00 

DB 

0 

{SAME AS ABOVE, 2 ND BYTE 

DAB6 

2000 

DH 

32 

{CHECK SIZE 

DABB 

0200 

DH 

2 

{NO. OF SYSTEM (NOT ACCESSABLE) TRACKS 


DPB3: ;DISK PARAMETER BLOCK FOR DOUBLE DEN., DOUBLE SIDED DISKS 

i WITH BLOCK SIZE BLKS2 = A096 BYTES / BLOCK 
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DABA 6800 


DN 

104 

1 SECTORS PER TRACK 

DABC 05 


DB 

5 

5 BLOCK SHIFT FACTOR 

DABD IF 


OB 

31 

5 BLOCK MASK 

BABE 03 


DB 

3 

5 EXTENT MASK 

DABF F200 


DN 

242 

jDISK SIZE-1 (NO. OF BLOCKS/DISK-1) 

DACl 7F00 


OH 

127 

jNO. OF DIRECTORY ENTRIES MAX.-l 

DAC3 BO 


DB 

128 

;DIRECTORY ALOCATION SPACE MASK, 1 ST BYTE 

DAC4 00 


DB 

0 

5 SAME AS ABOVE, 2 ND BYTE 

DAC5 2000 


DN 

32 

5 CHECK SIZE 

DAC7 0200 

5 

DN 

2 

jNO. OF SYSTEM (NOT ACCESSABLE) TRACKS 


j 

j 

t t 

t t t t t t 

tttttttttttttttttttit 


t t 

t END OF FIXED TABLES t 

t t 

ttttttttttttttttttttttttttttt 


PAGE 


; tmmnmmttmtmnmttntmmmmtmtmm 

i tttt tttt 

; mnmmmnmmmmmnmtmmumtmmtt 

9 

DAC9 FF BOOTFLAG: DB OFFH ;SET TO 00 ON COLDBOOT 


BOOT: jSIHPLEST CASE IS TO JUST PERFORM PARAMETER INITIALIZATION 


DACA 3EC1 

MVI 

A,0C1H 

;SET lOBYTE TO: LST;=UL1: 

; CON:=CRT: 

DACC 320300 

STA 

lOBYTE 

; INITIALIZE THE lOBYTE 
i(LST:=LPT:, CON:=CRT:) 

DACF AF 

XRA 

A 

iZERO IN THE ACCUM 

DADO 320400 

STA 

CPMDRIVE 

;LOC 0004 - CPM CURRENT DISK NO. 

DAD3 32C9DA 

STA 

BOOTFLAG 



j 

; INITIALIZATION ROUTINES FOR LIST DEVICES FOLLON: 

t 


IF 60DBI0 
XRA A 
OUT 3 
ENDIF 


START CONDITIONAL FOR GODBOUT I/O BOARD 
INITIALIZE THE I/O BOARD 
BY SENDING A 00 TO THE STATUS PORT 
STOP ASSEMBLING FOR THE GODBOUT ONLY 


; ABOVE NOT NEEDED FOR CURRENT BOARD 


UART INIT FOR DELTA PRODUCTS CPU BOARD 
BRING UART TO COMAND INSTRUCTION MODE 
PORT 1 IS UART A STATUS 
PORT 3 IS UART B STATUS (ALSO TIME FILL) 
COHAND INSTRUCTION MODE - RESET UART 


OUT 01 

OUT 03 

MVI A,0EEH 


MVI A,OEH 

OUT 01 

OUT 03 

MVI A,40H 


;HODE - BAUD RATE FACTOR = 161 
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OUT 

01 

iDISABLE PARITY, 8 BIT CHARACTER LENGTH 


OUT 

03 

t 

> 


HVI 

A,37H 

5 COHAND INSTRUCTION HODE-TRANSH ENABLE, 


OUT 

01 

;DATA TERH READY, RECEIVE ENABLE, ERROR 


OUT 

03 

jRESET, REQUEST TO SEND (IF NEEDED) 


ENDIF 


iSTQP ASSEHBLING FOR THE DELTA PRODUCTS BRD. 


IF nULTLIST 

iCONDITIONAL ASSEHBLY FOR MICROHATION HULTI I/O BOARD FOLLOHS 


i825I UART INITIALIATION: 


HVI 

A,0EH 

i THESE FIRST TWO BYTES PUT 8251’ S IN NODE SET 

OUT 

UART 1C 

9 

» 

NOP 


; HASTE TIHE AT 4HHZ.... 

NOP 

HVI 

A,40H 

fl 

J 

OUT 

UARTIC 

! 

NOP 


j HASTE TIRE AT 4HHZ.... 

NOP 

HVI 

A,OEEH 

;HODE SET:ASYNC,B DATA & 2 STOP BITS, NO PARITY 

OUT 

UARTIC 

i 

NOP 


jHASTE TIHE AT 4HHZ.... 

NOP 

HVI 

A,37H 

;COHHAND HORD:ENABLE RXD 1 TXD, RTS/ & DTR/ 

OUT 

UARTIC 

jFLABS SET, ERROR FLAGS RESET... 

f 

1 

i8253 INITIALIZATION! 


HVI 

A,0B6H 

fSET HODE OF 8253 COUNTER #2 (BAUD CLOCK) 

OUT 

RTC 

1 

HVI 

A, 13 

{DIVIDE BY 13 OF RASTER 2HHZ. CLOCK 

OUT 

TIHER2 

• 

> 

XRA 

A 

• 

OUT 

TIHER2 

9 

1 

ENDIF 


;END OF CONDITIONAL ASSEHBLY 


IF CENTLIST 


;8255 INITIALIZATION! 

SETS UP CENTRONICS TYPE PRINTER DRIVER 

HVI 

A,OABH 

{DEFINE HODE: PORTA= HODEl (OUTPUT) 
{PORTC= STATUS A AND HODEO (INPUT) 
{PORTB= DON’T CARE (SET TO HODEO OUTPUT) 

OUT 

COHHAND 

i 

HVI 

A,OFFH 

{TURN OFF DATA STROBE 

OUT 

DATAPORT 

5 

ENDIF 


{STOP CONDITIONAL ASSEHBLY FOR CENTLIST 


IF USERLST i INSERT CUSTOH LIST DEVICE INITIALIZATION IN THIS AREA 
ENDIF 


4 

JHP GOCPH ; INITIALIZE AND GO TO CP/H 


KBOOT; ; SIMPLEST CASE IS TO READ THE DISK UNTIL ALL SECTORS LOADED 


DADi C326DB 
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DAD9 3EFF 


ttVl 

A,OFFH 


DADB 32C9DA 


STA 

BOOTFLAG 

;TELL THAT WE ARE WARM 

DADE 3100C4 


LH 

SP,CCP 

iSET UP STACK BELOW CP/M 

DAEl OEOO 


«V1 

C,0 

{SELECT DISK 0 

DAE3 CD06F8 


CALL 

CSELDSK 


DAE6 CD03F8 


CALL 

CHOME 

;60 TO TRACK 00 

DAE9 062C 


MV I 

B,NSECTS 

;B COUNTS t OF SECTORS TO LOAD 

DAEB OEOO 


MV I 

C,0 

|C HAS THE CURRENT TRACK NUMBER 

DAED 1602 


MVl 

D,2 

{D HAS THE NEXT SECTOR TO READ 


5 

NOTE THAT WE BEGIN BY READING TRACK 0, SECTOR 2 SINCE SECTOR 1 


• 

f 

CONTAINS THE COLD START LOADER, WHICH IS SKIPPED IN A WARM START 

DAEF 2100C4 


Ul 

H,CCP 

{BASE OF CP/M (INITIAL LOAD POINT) 


LOADls 

;LDAD 

ONE MORE SECTOR 


DAF2 C5 


PUSH 

B 

{SAVE SECTOR COUNT, CURRENT TRACK 

DAF3 D5 


PUSH 

D 

{SAVE NEXT SECTOR TO READ 

DAF4 E5 


PUSH 

H 

{SAVE DMA ADDRESS 

DAF5 4A 


MOV 

C,D 

{GET SECTOR ADDRESS TO REGISTER C 

DAF6 CD0CF8 


CALL 

CSETSEC 

{CONTROLLER SET SECTOR ADDRESS FROM REGISTER 

DAF9 Cl 


POP 

6 

{RECALL DMA ADDRESS TO B,C 

DAFA C5 


PUSH 

B 

{REPLACE ON STACK FOR LATER RECALL 

DAFB CD0FF8 


CALL 

CSETDMA 

{SET DMA ADDRESS FROM B,C 


I 

DRIVE 

SET TO 0, TRACK SET, SECTOR SET, DMA ADDRESS SET 

DAFE CD12F8 


CALL 

DISKREAD 

{DIRECT DISK READ OF ONE SECTOR 

DBOl B7 


ORA 

A 

{ANY ERRORS? 

DB02 C2D9DA 


JNZ 

WBOOT 

{RETRY THE ENTIRE BOOT IF AN ERROR OCCURS 


f 

j 

NO ERROR, MOVE TO NEXT SECTOR 

DB05 El 


POP 

H 

{RECALL DMA ADDRESS 

DB06i.l 18000 


LXI 

D,128 

{DHA=DMA+128 

DB09 19 


DAD 

D 

{NEW DMA ADDRESS IS IN H,L 

DBOA D1 


POP 

D 

{RECALL SECTOR ADDRESS 

DBOB Cl 


POP 

B 

{RECALL NUMBER OF SECTORS REMAINING 

' 




(AND CURRENT TRK 

DBOC 05 


DCR 

B 

{SECT0RS=SECT0RS-1 

DBOD CA26DB 


JZ 

GOCPM 

{TRANSFER TO CP/M IF ALL HAVE BEEN LOADED 


5 

■ 

j 

MORE SECTORS REMAIN TO LOAD, CHECK FOR TRACK CHANGE 

DBIO 14 


INR 

D 


DBll 7ft 


MOV 

A,D 

{SECT0R=27?, IF SO, CHANGE TRACKS 

DBI2 FEIB 


CPI 

27 


DB14 DAF2Dft 


JC 

LOADl 

{CARRY GENERATED IF SECT0R<27 


f 

END OF CURRENT TRACK, 

GO TO NEXT TRACK 


NHTRK: 




DB17 1601 


MV I 

D,1 

{BEGIN WITH FIRST SECTOR OF NEXT TRACK 

DB19 OC 


INR 

C 

{TRACK=TRACK+1 


j 

5 

4 

SAVE REGISTER STATE, 

AND CHANGE TRACKS 

DBIA C5 


PUSH 

B 


DBIB D5 


PUSH 

D 
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DBIC E5 

PUSH 

H 


DBID CD09FB 

CALL 

CSETTRK 1 TRACK ADDRESS SET FROM REBISTER C 

DB20 El 

POP 

H 


DB21 D1 

POP 

D 


DB22 Cl 

POP 

B 


DB23 C3F2DA 

JHP 

LDADl 

;FOR ANOTHER SECTOR 


! 

! * 

t t 

t t t t t 


; END OF LOAD OPERATION, 

GDCPM: 

SET PARAMETERS AND BO TO CP/M 

DB26 3EC3 

MV I 

A,0C3H 

;C3 IS A JMP INSTRUCTION 

DB28 320000 

STA 

0 

;FOR JMP TO NBOOT 

DB2B 2103DA 

LXI 

H,BNBDOT 

iCBIOS NBOOT ENTRY POINT 

DB2E 220100 

SHLD 

1 

jSET ADDRESS FIELD FOR JMP AT 0 

DB31 320500 

i 

STA 

5 

jFOR JMP TO BDOS 

DB34 2106CC 

LXI 

H,6D0S 

;BDOS ENTRY POINT 

DB37 220M0 

SHLD 

b 

i ADDRESS FIELD OF JUMP AT 5 TO BDOS 

DB3A 018000 

LXI 

B,80H 

{DEFAULT DMA ADDRESS IS BOH 

DB3D CDOFFB 

CALL 

CSETDMA 


DB40 3AC9DA 

LDA 

BOQTFLAG 


DB43 FEOO 

CPI 

0 

(ARE NE COLD? 

DB45 C2B5DB 

JNZ 

GOCCP 

(NO, NE ARE NARM, SKIP INIT CYCLE 




jlNIT THE lOPROM IN THE SYSTEM 


jBUT FIRST HE MUST CHECK IF THERE IS AN I/O PROM PRESENT, 


•jAND MOVE THE JUMP TABLE AS REQUIRED 

PROMCHK; 

DB48 2100F0 

LXI 

H.IOPROM 


DB4B 7E 

MOV 

A,M 


DB4C FEC3 

CPI 

0C3H 

(IS THE BYTE A JMP? 

DB4E C285DB 

JNZ 

GOCCP “ 

(NO! 

DB51 2C 

INR 

L 

(MAYBE 

DB52 2C , 

INR 

L 


DB53 2C 

INR 

L 


DB54 7E 

MOV 

A.M 


DB55 FEC3 

CPI 

0C3H 


DB57 C285DB 

JNZ 

GOCCP 

(NO! 

DB5A£D63DB 

CALL 

MOVECTORS 

(YES 

DB5D CDOOFO 

CALL 

lOPROM 

(MIGHT AS NELL SIGN ON NHILE NE ARE 
((THIS IS TAKEN CARE OF ELSENHERE IF 
(THERE IS NO lOPROH) 

DB60 C385DB 

JMP 

GOCCP 



HOVECTORS: 

tuuttiuttututtutttutitntttttutttuutttttttttt 

I 

» CHECKS PROH FOR JUMP VECTOR ADDRESS AND MOVES THEM 
I TO BIOS IF NON-ZERO 

I 

ttututttttuuitututtuttutttttttntttuuttuttu 
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DB63 1107F0 


LXI 

D,IOPROH + 7H 

;ADDR OF NEM TABLE 

DBiB 2107DA 


LX I 

H.BIOS + 7H 

; WHERE THIS BIOS WANTS IT 

DB69 lA 

AGAIN: 

LDAX 

D 


DB6A FEOO 


CPI 

0 

;IS THE HI BYTE 0? (IF IT IS, IT CANNOT 

BBiC CA7BDB 


JZ 

SKIPIT 

iYES BE A REAL ADDRESS) 

DB6F lA 


LDAX 

D 

jNO, HOVE 2 BYTES 

BB70 77 


HOV 

H,A 


DB71 13 


INX 

D 


DB72 23 


IKX 

H 


DB73 lA 


LDAX 

D 


DB74 77 


HOV 

H,A 


DB75 C37ADB 


JHP 

SKIP2 

iHQVE POINTERS TO NEXT INSTRUCTION 

DB78 23 

SKIPIT: 

INX 

H 


DB79 13 


INX 

D 


DB7A 23 

SKIP2: 

INX 

H 


DB7B 23 


INX 

H 


DB7C 13 


INX 

D 


DB7B 13 


INX 

D 


DB7E 7B 

NEIT: 

HOV 

A,E 

5 WHERE ARE WE? 

DB7F FE30 


CPI 

30H 


DB81 DA69DB 


JC 

AGAIN 

;NOT DONE YET - LOOP AGAIN 

DB84 C9 


RET 


{FINISHED - EXIT 


60CCP; 



• 

J 


El 

{ENABLE THE INTERRUPT SYSTEH 

DB85 3A0400 


LDA 

CPHDRIVE 

{CPH BOOT DRIVE 

DB88 4F 


HOV 

C,A 

{SEND TO THE CCP 

DBB9 C300C4 


JHP 

CCP 

{GO TO CP/H FOR FURTHER PROCESSING 


5 

• 

f 

t 

t t 

t t t t t 


5 

• 

> 

ERROR CHECKING READ AND WRITE RTNS FOR 


• 

1 

HICROHATION CBIOS 



5 

• 

5 


AUGUST 1,1978 



> 

HRITE 




DB8C CD3EDC 


CALL 

SETUP 

{SELECT DISK, STEP TO CORRECT TRACK 

DBBF CD1EF8 


CALL 

WRITEPROTECT 

{SETS Z IF DRIVE IS PROTECTED 

DB92 C2A6DB 


JNZ 

WRTOK 

{IF ENABLED, CONTINUE 

DB95 11E6DB 

5 

LXI 

D,PROTHES 

{WRITE PROTECT HESAGE 

DB98 CD42DD 


CALL 

PRINT 

{PRINT IT 

DB9B CD09DA 

j 

CALL 

CONINl 

{WAIT FOR A CHAR V UNLOAD HEAD 

DB9E FE03 


CPI 

3 

{CONTROL C? 

DBAO CAD9DA 


JZ 

WBOOT 

{REBOOT IF SO, OTHERWISE 

DBA3 C38CDB 

«RTOK 

JHP 

WRITE 

{LOOP UNTIL NOT PROTECTED 

DBA6 3E15 


HVl 

A.DISKWRITE AND OFFH ;L0W ADDRESS OF WRITE ROUTINE IN PROH 

DBA8 C3B0DB 


JHP 

READWRITE 
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READ 


DBAB CD3EDC 

CALL 

SETUP 

: SELECT DRIVE, STEP TO CORRECT TRACK 

DBAE 3E12 

HVI 

A.DISKREAD AND OFFH ;LOH ADDRESS OF READ ROUTINE IN 1 

READHRITE 



DBBO 32BCDB 

STA 

RN+1 

i STORE ADDRESS IN CALL INSTRUCTION 

DBB3 AF 

XRA 

A 

• 

DBB4 3220FC 

STA 

TRYl 

•.ZERO OUT ERROR COUNTERS 

DBB7 3221FC 

STA 

RETRYCOUNT 


RETRY; 




DBBA F3 

DI 



DBBB CD12FB RH 

CALL 

DISKREAD 

iREAD OR WRITE SECTOR 




5 SETS Z ON SUCCESSFUL READ 




jSETS C ON TRACK ERROR 

DBBE FB 

El 



DBBF 3EOO 

HVI 

A,0 


DBCl CB 

RZ 


i SUCCESSFUL READ. RETURN 




;READ DR WRITE ERROR HANDLERS 

DBC2 DACFDB 

JC 

TRACKERROR 

.-READ AND WRITE SET C ON TRACK ERROR 

DBC5 2121FC 

LXI 

H, RETRYCOUNT 


DBC8 34 

INR 

H 

;INCREHENT RETRYCOUNT 

DBC9 7E 

HOV 

A,H 


DBCA E60F 

ANI 

OFH 

;16 TRIES 

DBCC C2BADB 

JNZ 

RETRY 

■,IF HORE THAN 16 RETRIES, TRY RESEEKIN6 

TRACKERROR 



DBCF 2I20FC 

LXI 

H,TRY1 


DBD2 34 

INR 

H 

jINCREHENT NO OF TRACK ERRORS 

DBD3 7E 

HOV 

A,H 


DBD4 FEOA 

CPI 

10 

; ALLOW ONLY 10 TRACK ERRORS 

DBD6 3E01 

HVI 

A,1 

;CP/H CONVENTION FOR PERHANENT ERROR 

DBDB CB 

RZ 


jIF >10, RETURN A FAILURE 

DBD9 CD03FB 

CALL 

CHOHE 

;ELSE, HOHE THE HEAD 

DBDC 3A4200 

LDA 

TRACK 1 


DBDF 4F 

HOV 

C,A 


DBEO CD09F8 

CALL 

CSETTRK ; RESEEK TO CORRECT TRACK 

DBE3 C3BADB 

JHP 

RETRY 


PROTHES: 



DBE6 ODOAOA5052 

DB 

CR,LF,LF, ’PROTECTED - INSERT’ 

DBFB 2041204E4F 

D6 

’ A NON-PROTECTED DISK’ 

DCIO 20414E4420 

DB 

’ AND TYPE RETURN’ 

DC20 0DfiA0A2B4F 

DB 

CR,LF,LF,’<OR TYPE CTL C TO ABORT)’, CR,LF,’$’ 


I 

SETUP: ■ 

I-..- 

i SELECTS REQUESTED DRIVE IF IT IS NOT ALREADY SELECTED 
; STEPS TO REQUESTED TRACK 

;SETS UP CONTROLLER TO TRANSFER DATA TO/FROH PROPER SIDE OF DISK 


DC3E 3A0DFC 

LDA 

NXTDISK, 

;6ET NEXT DISK NO. 

DC41 4F 

HOV 

C,A 


DC42 3A05FC 

LDA 

PRESDSK 

;GET PRES DSK. 

DC45 B9 

CHP 

C 

: EQUAL? 
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DC46 C406F8 CNZ CSELDSK jlF NO, SELECT NEXT DISK 

;FIX FOR BUS IN C.l PROH 

ilF YOUR DOUBLER HAS ANY PRON VERSION OTHER THAN C.l, YOU DON’T NEED THIS 


LDA 

RDSTAT 

;6ET DRIVE STATUS 

ANI 

20H 

5 HEAD LOADED? 

CNZ 

CSELDSK 

;IF NO, CALL CSELDSK TO LOAD HEAD 


; (C RES ALREADY HAS PROPER DISK NUHBER) 

END OF FIX FOR BUS IN C.l PRON 

ttuttitttnunututituutuu 


DC49 3A4200 

LDA 

TRACKl 

|GET REBUESTED TRACK NUMBER 

DC4C 4F 

MOV 

C,A 


DC4D 3A04FC 

LDA 

TRACK 

;GET TRACK # NE’RE ON 

DC50 B9 

CNP 

C 

;ARE NE ON REBUESTED TRACK? 

DC51 C409F8 

CNZ 

CSETTRK 

;IF NO, CALL CONTROLLER SETTRK ROUTINE 

DC54 3A4D00 

LDA 

SIDE 

;SIDE = 00 FOR SIDE 0 

DC57 OF 

RRC 


5 SHIFT SIDE BIT INTO CARRY 

DC58 3F 

CMC 


; COMPLEMENT CARRY 

DC59 3A03FC 

LDA 

CTRBYTE 


DC5C 17 

RAL 


5 SHIFT CARRY INTO BIT 0, SET CARRY = BIT 7 

DC5D OF 

RRC 


; ROTATE IT BACK TO NORMAL 

DC5E 3203FC 

STA 

CTRBYTE 


DC61 C9 

RET 




I t t t t t t t 


I/O DRIVERS FOR THE DISK FOLLON 

FOR NON, NE NILL SIHPLY STORE THE PARAHETERS ANAY FOR USE 
IN THE READ AND NRITE SUBROUTINES 


I 

SELDSK; ; SELECT DISK GIVEN BY REGISTER C 

t — 

;0N ENTRY, BIT 0 OF REGISTER E CONTAINS THE DRIVE STATUS 

;BIT 0 IS 0 IF THE SELECTED DRIVE IS ‘OFF LINE* (NEVER BEEN SELECTED 

I SINCE LAST NARH BOOT) 

:NE NANT TO TEST THE DENSITY OF THE DISK IF IT IS OFF LINE 


DCi2 210000 

LXI 

H.OOOOH 

; ERROR RETURN CODE 

DC65 79 

NOV 

A,C 


DC66 FE04 

CPI 

NDRIVES 

{VALID DRIVE NUMBER? 

DC68 DO, 

RNC 


{NO CARRY IF 4,5,... 

DCi9 320DFC 

STA 

NXTDISK 

{DOUBLER SCRATCH LOC. FOR NEXT DISKOP 


DISK NUMBER IS IN THE PROPER RANGE 


DC6C 7B 

5 

HOV 

A,E 

{GET DRIVE STATUS FOR EVALUATION 

DCiD IF 


RAR 


{GET BIT 0 - LOGIN STAT INTO CARRY 

DCiE D4B0DC 


CNC 

SETPARM 

{CARRY IS CLEAR IF DRIVE IS JUST BEIN{ 


SELECTED FOR THE FIRST TINE 
SELECT DESIRED DRIVE, TEST DENSITY 


CONFUTE PROPER DISK PARAMETER HEADER ADDRESS 
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CALCDPE 


DC71 3A0DFC 

LDA 

NXTDISK 

jGET DISK, HHICH BACAHE PRESENT AFTER SEL. 

DC74 iF 

MOV 

L,A 

iL=DISK NUMBER 0, 1,2,3 

DC75 2600 

HVl 

H,0 

5 HIGH ORDER ZERO 

DC77 29 

DAD 

H 

;I2 

DC78 29 

DAD 

H 

;t4 

DC79 29 

DAD 

H 

;t8 

DC7A 29 

DAD 

H 

;I16 (SIZE OF EACH HEADER) 

DC7B 1133DA 

LH 

DjDPBASE 


DC7E 19 

DAD 

D 

|HL=.DPBASE(DISKN0tl6) 

DC7F C9 

RET 




t 



SETPARM: 

* 

iTEST DISK NHICH IS BEING SELECTED FOR THE FIRST TIME 


♦ - - 

iON ENTRY, C REG CONTAINS DISK NUMBER TO BE SELECTED 

DC80 CD06F8 

CALL 

CSELDSK 

jSELECT DISK ROUTINE IN PROM 

DC83 CD03F8 

CALL 

CHOME 

;HOHE THE DRIVE 

DC86 0E02 

MVI 

C,2 

5 STEP TO TRACK 2 

DC88 CD09F8 

CALL 

CSETTRK 

;HHEN THE PROM STEPS FROM TRACKS 0 OR 1 
;T0 TRACK 2, IT TESTS THE DENSITY 
; DENSITY INFO IN DENBYTE IS NON VALID 

DC8B CD71DC 

CALL 

CALCDPE 

{CALCULATE DISK PARAMETER HEADER ADDRESS 

DC8E 0600 

MVI 

B,0 

{FOR DAD 

DC90 70 

MOV 

M,B 

{ZERO OUT SECTOR TRANSLATE POINTER IN DPE 

DC91 23 

INX 

H 

{(IF DISK IS SINGLE DENSITY, NE’LL REPLACE IT) 

DC92 70 

MOV 

M,B 


DC93 3A00FE 

LDA 

RDSTAT 

(CHECK FOR DOUBLE SIDED DISK 

DC96 E640 

ANI 

40H 

{IF BIT 6 IS LON, DISK IS DOUBLE SIDED 

DC98 OEIE 

MVI 

C,DPB2-DPB0 

(OFFSET IN PARH TABLE FOR DOUBLE SIDED 

DC9A eA9FDC 

JZ 

DBLSIDD 


DC9D OEOO 

MVI 

DBLSIDD 

C,0 

(NO OFFSET FOR SINGLE SIDED 

DC9F 3A01FC 

LDA 

DENBYTE 

(NON FIND DENSITY 

(FOR <C> PROM, DENBYTE = 0 FOR SD, lOH FOR DD 


■’ 


{FOR <C1> PROM, DENBYTE = 0 FOR SD, 4 FOR DD 

DCA2 B7 

ORA 

A 

(DENBYTE = 0? 

DCA3 3E0F 

MVI 

A,DPB1-DPB0 

(OFFSET IN PARM TABLE FOR DOUBLE DENSITY 

DCA5 C2AFDC 

JNZ 

DBLDEN 

{SINGLE DENSITY. 

DCAB AF 

XRA 

A 

(NO OFFSET FOR SINGLE DENSITY 

DCA9 '2B 

DCX 

H 

{POINT BACK TO BEGINNING OF DP HEADER 

DCAA 3673 

,-MVl 

H,TRANS AND OFFH ;PUT IN LON BYTE OF TRANSLATE TABLE POINTER 

DCAC 23 

' INX 

H 


DCAD 36DA 

MVI 

M, TRANS SHR 8 

(PUT IN HIGH BYTE OF TRANSLATE TABLE POINTER 

DCAF 81 

DBLDEN ADD 

C 

{ADD OFFSET FOR 1 SIDES 

DCBO 324900 

STA 

DENSIDE 

(STORE IN SCRATCH FOR USE BY UTILITIES 

DCB3 0E09 

HVl 

C,9 

(INDEX INTO PARH HEADER TO DPB FIELD 

DCB5 09 

DAD 

B 

(HL NON CONTAINS ADDRESS OF DPB ENTRY OF HEADER 

DCB6 EB 

XCHG 


jSAVE IT IN DE 
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DCB7 4F 

nov 

C,A 

•,HOVE DPB OFFSET TO C FOR DAD 

DCB8 21BDDA 

LXI 

H,DPBO 

5 POINT TO BEGINNING OF PARH BLOCKS 

DCBB 09 

DAD 

B 

jNOH HL POINT TO CORRECT PARH BLOCK 

DCBC EB 

XCH6 


iNOH DE POINT TO CORRECT PARH BLOCK 

5 RESTORE ADDRESS OF DPB ENTRY OF HEADER TO HL 

DCBD 73 

HOV 

H,E 

iPUT LOH BYTE OF DPB ADDRESS INTO DP HEADER 

DCBE 23 

INX 

H 


DCBF 72 

HOV 

H,D 

;PUT HIGH BYTE OF DPB ADDRESS INTO DP HEADER 

DCCO C9 

RET 




t 



HOHE; 

• 

> 

* 

;HOVE TO THE TRACK 00 POSITION OF CURRENT DRIVE 

TRANSLATE THIS CALL INTO A SETTRK CALL HITH PARAHETER 00 

DCCl OEOO 

♦ 

HVI C,0 


SETTRK; 

5 SET TRACK GIVEN BY REGISTER C 

DCC3 79 


HOV A,C 

DCC4 324200 


STA TRACKl ;JUST STORE TRACK NUHBER 

DCC7 C9 


RET 


tmmtunmmutmttmtmmmmummmtm 

t t t t t t t t 

tmmmmtmmtmmtmtmmmtmmmmm 


SECTRAN: 

5 SECTOR TRANSLATE ROUTINE 

jTHIS ROUTINE HANDLES ONLY SINSLE BYTE SECTOR VALUES 
jAND SINBLE BYTE TRANSLATE TABLES 
jON ENTRY, B=0, C=L06ICAL SECTOR NUHBER, AND DE POINT TO 
; THE TRANSLATE TABLE 

;ON EXIT, H=0 AND L CONTAINS THE PHYSICAL SECTOR NUHBER 

ilF DE=OOOOH, DO NOT TRANSLATE. JUST PUT HOVE BC INTO HL, 

5 INCREHENT (TO REFERENCE TO SECTOR 1, NOT 0), AND RETURN 

;IF DE <> 0000, HE ASSUHE THE DISK IS SINGLE DENSITY 
iNORHALIZE C TO THE RANGE OF <0 TO 25> (BY SUBTRACTING 7b IF 
; NECESSARY) 

iTRANSLATE HITH THE TABLE POINTED TO BY DE, AND, IF 2b HAS 

i SUBTRACTED, ADD IT BACK IN 

jRESULT IS RETURNED IN HL (IT’S IN THE RANGE <1 TO 52» 


DCC8 69 

HOV 

L,C 

;HOVE BC (LOG SECT) TO HL (PHYS SECT) 

DCC9 60 

HOV 

H,B 

iH IS NOH ZERO (SINCE B HAS) 

DCCA 23 

INX 

H 

; INCREHENT FOR PHYSICAL SECTOR NUHBER 

DCCB 7A 

HOV 

A,D 


DCCC B3 

ORA 

E 

jDE=0000H? 

DCCD C8 

RZ 


;IF YES, RETURN 

DCCE 2B 

DCX 

H 

i 

jDECR HL BACK TO LOGICAL SECT 1 

DCCF 79 

HOV 

A,C 


DCDO D61A 

SUl 

26 

: SECTOR NUHBER < 26? 
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DCD2 DAD8DC 

JC 

UNDER26 


DCD5 061A 

nvi 

B,26 

5 IF NO, PUT 26 IN B (TO ADD IN LATER) 

DCD7 6F 

NOV 

L,A 

iPUT (0-26 IN L REG 

UNDER2i 



;N0« L IS IN RANGE OF 0-25 

DCD8 19 

DAD 

D 

j INDEX INTO TRANSLATE TABLE 

DCD9 7E 

MOV 

A,H 

iSET PHYSICAL SECTOR NUMBER FROM TABLE 

DCDA 80 

ADD 

B 

|ADD OFFSET FOR SIDE 1 

DCDB 2600 

MVI 

H,0 


DCDD 6F 

MOV 

L,A 

5 PUT BACK IN L REG 

DCDE C9 

RET 




, 

SETSEC; ;SET SECTOR ROUTINE 



1 


{DECIDES IF DISK IS SINGLE OR DOUBLE SIDED 




{NORMALIZES THE SECTOR NUMBER (1-26 IN SD, 1-52 IN DD) 




{UPDATES "SIDE 





{JUMPS TO CONTROLLER SET SECTOR ROUTINE 

DCDF 2n6FC 


LXI 

H.DENMAP 

{POINT TO DENSITY TABLE 

DCE2 3A0DFC 


LDA 

NXTDISK 

{GET DISK NUMBER 

DEES 85 


ADD 

L 

{INDEX INTO TABLE 

DCE6 6F 


HOV 

L,A 


PCE7 7E 


MOV 

A,M 

{GET DENSITY BYTE 

DCE8 2HD00 


LXl 

H,SIDE 


DCEB 3600 


MVI 

M,0 

{INITIALIZE SIDE TO 0 

DEED B7 


ORA 

A 

{SINGLE DENSITY? 

DCEE 79 


HOV 

A,C 

{MOVE SECTOR NUMBER TO ACCUMULATOR 

DCEF CAF4DC 


JZ 

SDSECT 






{DOUBLE DENSITY 

DCF2 D61A 


SUl 

26 

{IF DOUBLE DENSITY, SECTOR J < 53? 

DCF4 D61B 

SDSECT 

SUl 

27 

{IF SINGLE DENSITY, SECTOR 1 < 27? 

DCF6 FAFCDC 


JM 

SIDEO 

;IF YES, S1DE=0, USE SECTOR NUMBER IN 





{SIDE 1 

DCF9 34 


INR 

H 

{SET SIDE=1 

DCFA 3C 


INR 

A 


DCFB 4F 


MOV 

C,A 

{USE SECTOR NUMBER IN ACCUMULATOR 

DCFC C30CFB 

SIDEO 

JMP 

CSETSEC 

{GO TO CONTROLLER SET SECTOR ROUTINE 





{ (SECTOR NUMBER IS IN C REG) 


nmuumnnttmtmtmmmummmmmum 

» t 

t SIMPLE 1/0 HANDLERS (MUST BE FILLED IN BY USER) t 

t t 

ttuttttMututtttttuttttuttttttttuuuttunttutMt 


OOOD = 
OOOA = 


; HARDNARE UART CONSOLE ROUTINES 

CR ECU ODH ; ASCI I <CR> 

LF EOU OAH ;<LF> 
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CONST: 

j CONSOLE STATUS, RETURN OFFH IF CHARACTER READY, OOH IF NOT 

DCFF 

3A0AFE 

CONSTAT 

LDA 

UARTSTAT 

DD02 

E602 


ANI 

2 

DD04 

C8 


RZ 


DD05 

3EFF 


«VI 

A, OFFH 

DD07 

C9 


RET 




5 

t 

t t 4 4 1 4 t 



i 

CONIN: 

{CONSOLE CHARACTER INTO REGISTER A 

DD08 

CDFFDC 


CALL 

CONSTAT 

DDOB 

CA08DD 


JZ 

CONIN 

DDOE 

3A02FE 


LDA 

UARTDATA 

DDll 

E67F 


ANI 

7FH 

DD13 

C9 


RET 




5 

} 

t 

4 4 4 4 4 4 4 



CDNOUT: 

{CONSOLE CHARACTER OUTPUT FROH REGISTER C 

DD14 

3A0AFE 


LDA 

UARTSTAT 

DD17 

E60! 


ANI 

01 

DD19 

CA14DD 


3Z 

CONOUT 

DDIC 

79 


nov 

A,C 

DDID 

3202FE 


STA 

UARTDATA 

DD20 

C9 


RET 




PAGE 





> 

t 

4 4 4 4 4 4 4 



UST: 

{THIS ROUTINE IHPLEHENTS THE I/O BYTE FUNCTION FOR LST: DEVICES 



1 

I/O BYTE FOR LIST DEVICE IS IHPLEHENTED AS FOLLOWS: 



t 


■TTY* = nULTLlST (HH HULTI I/O BOARD SERIAL PORTIl) 



t 


■CRT" = CONOUT (HH DOUBLER SERIAL PORT) 



t 


■LPT" = CENTLIST (CENTRONICS 703/779 TYPE LIST DEVICE) 



% 


■ULl" = OPTIONAL DRIVER SELECTED BY USER 


IF NOT (GODBIO OR SBHIO OR DPIO OR USERLST OR NULTLIST OR CENTLIST) 
RET ;THEN RETURN BECAUSE IT IS NOT SUPPORTED 

ENDIF 


IF IGODBIO OR SSMIO OR DPIO OR USERLST OR MULTLIST OR CENTLIST) 


DD21 3A0300 

LDA 

lOBYTE 

{GET THE CURRENT 1/0 STATUS 

DD24 E6C0 

ANI 

OCOH 


DD2B CA3EDD 

JZ 

MULTLST 

{NH HULTI I/O BRD SERIAL PORT AS LIST 

DD29 17 

RAL 



DD2A D214DD 

JNC 

CONOUT 

{DOUBLER CONSOLE AS LIST 

DD2D 17 

RAL 



DD2E D23FDD 

JNC 

CENTLST 

{CENTRONICS PARALLEL PRINTER DRIVER 


LISTl: 

IF GODBIO jCONDlTIONAL FOR THE 60DBOUT 1/0 BOARD FOLLOWS: 
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DD31 DB2I 

IN 

21H 


DD33 E641 

ANI 

41H 

iBIT 0 IS TRANSMITTER BUFFER EMPTY 

DD35 FEOl 

CPI 

1 

jBIT 6 IS -DATA SET READY FROM PRINTER 

DD37 C231DD 

JNZ 

LISTl 

|NOT READY YET 

DD3A 79 

MOV 

A,C 

jLIST GETS CHARACTER IN C REG. 

DD3B D320 

OUT 

ENDIF 

20H 

;DATA PORT 

;STOP ASSEMBLING FOR THE 60DB0UT ONLY 


jLIST ROUTINE FOR SSM 2P+2S I/O BOARD 
5 PRINTER READY AND TX READY 


jFOR AN AUTO LF DEVICE 


IF DPIO 


jLIST ROUTINE FOR DELTA PRODUCTS CPU BOARD WITH 8251 UART 

IN 

01 

;GET PRINTER STATUS 


ANI 

81H 

; PRINTER READY AND TX READY 


CPI 

81H 

;UART READY, DATA SET READY 

(BOTH) 

JNZ 

LISTl 

iNOT READY, WAIT TILL READY 


MOV 

A,C 



OUT 

00 

{PRINTER READY, OUTPUT DATA 

BYTE 

ENDIF 


{STOP CONDITIONAL ASSEMBLY 


IF USERLST 

{AREA FOR USER DEFINED LIST 

ROUTINE 

ENDIF 




RET 


{HEY NATCH OUT.. DON’T GET RID OF THIS <RET> 


IF SSHIO 
IN 2 

ANI BIH 

CPI 80H 

JNZ LISTl 
NOV A,C 

CPI OAH 

RZ 

OUT 3 

END IF 


nULTLST 

IF nULTLIST jBEOIN CONDITIONAL ASSEHBLY FOR HM I/O BOARD SERIAL OUT 


DD3E C9, 


IN 

UART 1C 

{GET STATUS 

ANI 

BIH 

{CHECK TO SEE IF TRANSMITTER BUFFER IS EMTPY- 

CPI 

81H 

{AND IF DSR IS ACTIVE 

JNZ 

MULTLST 

{WAIT TO SEND IT IF NOT... 

MOV 

A,C 

{GET CHARACTER TO OUTPUT 

OUT 

UART ID 

{SEND IT TO LIST DEVICE 

ENDIF 


{STOP ASSEMBLING FOR THE MICROMATION I/O BOARD 

RET 



CENTLST 



IF CENTLIST 

{LIST ROUTINE FOR CENTRONICS 703/779 PRINTER 

XRA 

A 

{CLEAR CARRY FLAG 

IN 

STATUS 

{GET STATUS BYTE 

RAL 


i 

RAL 


! 

RAL 


{CHECK BIT 5:PRINTER BUSY??? 

JC 

CENTLST 

1 * 

AKWAIT IN 

STATUS 

5 

ANI 

BOH 

{CHECK BIT 7: /DBF??? (EMPTY=HIGH) 

CPI 

BOH 

! 
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JNZ 

AKWAIT 

• 

J 

MOV 

A,C 

;GET CHARACTER FROM C REG. 

CPI 

OAH 

5 PRINTER IS AUTO LINEFEED 

RZ 



ORI 

80H 

jRESET DATA STROBE BIT FIRST... 

OUT 

DATAPORT 

;OUT TO PRINTER 

OUT 

PORTA 

;THIS SETS THE /OBF FLAG OF STATUS PORT 

ANI 

7FH 

{GENERATE DATA STROBE: BIT 7 OF PORTO 

OUT 

DATAPORT 

i 

ORI 

BOH 

• 

J 

OUT 

DATAPORT 

• 

f 

ENDIF 


{END OF LIST ROUTINE FOR CENTRONICS 779 

DD3F C9 RET 



ENDIF 


{END OF LIST DRIVER BLOCK... IDO NOT REMOVE 



{ t t t t t 

1 t 

t 


LISTST: {RETURN LIST STATUS (0 IF NOT READY, 

1 IF READY) 


DD40 AF 

XRA A {0 IS ALWAYS OK TO RETURN 



PUNCH: 



DD41 C9 

READER: RET 





PRINT: 



DD42 lA 

LDAX 

D 

{GET NEXT BYTE TO PRINT 

DD43 FE24 

CPI 


{END? 

DD45 C 8 

RZ 



DD46 4F 

MOV 

C,A 


DD47 CDOCDA 

CALL 

CONOUTl 

{OUTPUT CHARACTER TO CONSOLE 

DD4A 13 

INX 

D 

{POINT TO NEXT CHARACTER 

DD4B C342DD 

JMP 

PRINT 



; WARNING 

I END OF CODE MUST BE LESS THAN 
• 

; THE VALUE OF ENDCODE 

) 

5 

DD80 = ENDCODE EQU BIOS + 3B0H 


nmnmmmtnmtnmntmmmummttttnnumm 


tttiuttuttMutututtttuutttttttttttttttttttuuttu 

» t 

t THE REHAINDER OF THE CBIOS IS RESERVED UNINITIALIZED 
» DATA AREA, AND DOES NOT NEED TO BE A PART OF THE 
» SVSTEH MEMORY IMAGE (THE SPACE MUST BE AVAILABLE, 
t HOWEVER, BETWEEN ‘BEGDAT* AND ’ENDDAT’), 
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mmmmmummmtmmmmutmmntmm 


SCRATCH RAH AREA FOR RODS USE 


DD4E = 

BEGDAT 

EQU 

$ 

jBEBlNINS OF DATA AREA 

DD4E 

DIRBUF 

DS 

128 

; DIRECTORY ACCESS BUFFER 

DDCE 

• 

1 

ALVO 


DS 

31 

jALLOCATION VECTOR 0 

DDED 

CSVO 


DS 

32 

i CHECK VECTOR 0 

DEOD 

ALVl 


DS 

31 

{ALLOCATION VECTOR 1 

1)E2C 

CSVl 


DS 

32 

{CHECK VECTOR 1 

DE4C 

5 

ALV2 


DS 

31 

{ALLOCATION VECTOR 2 

DE&B 

CSV2 

i 


DS 

32 

{CHECK VECTOR 2 

DE8B 

ALV3 


DS 

31 

{ALLOCATION VECTOR 3 

DEAA 

CSV3 


DS 

32 

{CHECK VECTOR 3 

DECA = 

ENDOAT 


EQU 

$ 

{END OF DATA AREA 

017C = 

DATSIZ 


EQU 

$-BE6DAT ;SIZE OF DATA AREA 


f 

t 


DECA 

END 





D6B9 AGAIN 

DDCE ALVO 

DEOD ALVl 

DE4C ALV2 

DE8B 

ALV3 

CC06 BDOS 

DD4E BEBDAT 

9000 BIAS 

DADO BIOS 

0000 

BOOTBASE 

DACA BOOT 

DAC9 B00TFLA6 

FCOO BUFF 

DA03 BNBOOT 

DC71 

CALCDPE 

C400 CCP 

0000 CENTLIST 

DD3F CENTLST 

F803 CHOHE 

DA09 

CONINl 

DD08 CONIN 

DAOC CONOUTl 

DD14 CONOUT 

DCFF CONST 

DCFF 

CONSTAT 

F800 CONTROLLER 

0004 CPHDRIVE 

OOOD CR 

F80i CSELDSK 

FBOF 

CSETDHA 

F80C CSETSEC 

F809 CSETTRK 

DDED CSVO 

DE2C CSVl 

DE6B 

CSV2 

DEAA CSV3 

FC03 CTRBYTE 

FC22 CURRDRIVE 

017C DATSIZ 

DCAF 

DBLDEN 

DC9F DBLSIDD 

FCOl DENBYTE 

FC16 DENHAP 

0049 DENSIDE 

DD4E 

DIRBUF 

F812 DISKREAD 

F815 DISKNRITE 

DA8D DPBO 

DA9C DPBl 

DAAB 

DPB2 

DABA DPB3 

DA33 DPBASE 

DA33 DPEO 

DA43 DPEl 

DA53 

DPE2 

DAi3 DPE3 

0000 DPIO 

DD80 ENDCODE 

DECA ENDDAT 

0000 

FALSE 

DB85 GOCCP 

DB26 GOCPH 

FFFF GODBIO 

DCCl HOKE 

0003 

lOBYTE 

FOOO lOPROH 

OOOA LF 

DD21 LIST 

DD31 LISTl 

DD40 

LISTST 

DAF2 LOADl 

DBi3 HOVECTORS 

0038 nsiZE 

0000 MULTLIST 

DD3E 

HULTLST 

0004 NDRIVES 

DB7E NEXT 

0000 NONE 

002C NSECTS 

FCOD 

NXTDISK 

DB17 NUTRK 

FC05 PRESDSK 

DD42 PRINT 

F800 PROM 

DB48 

PROHCHK 

DBEi PROTHES 

DD41 PUNCH 

FE05 RDHARK 

FEOO RDSTAT 

D6AB 

READ 

DD4! READER 

DBBO READNRITE 

FC21 RETRYCOUNT DBBA RETRY 

DBBB 

RW 

DCF4 SDSECT 

FCOA SECTOR 

DCCB SECTRAN 

DC62 SELDSK 

FBIB 

SETDEN 

DCBO SETPARH 

DCDF SETSEC 

DCC3 SETTRK 

DC3E SETUP 

004D 

SIDE 

DCFC SIDED 

DB7A SKIP2 

DB78 SKIPIT 

0000 SSMIO 

FCIO 

STEPTIHE 

FC04 TRACK 

0042 TRACK 1 

DBCF TRACKERROR DA73 TRANS 

FFFF 

TRUE 

FC20 TRYl 

FE02 UARTDATA 

FEOA UARTSTAT 

DCD8 UNDER26 

0000 

USERLST 

DAD9 NBOOT 

FEOl NRCLK 

FEOO NRCONT 

DB8C NRITE 



F81E NRITEPROTECT 

,DBA6 NRTOK 
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FILE: IMSIO PRN 


i SPECIAL PROM FOR SIO BOARD ON IMSAI 


SYSTEN RAH EQUATES 
SYSTEM DISK LAYOUT EQUATES 


005E = 

SIGNON 

EQU 

05EH 

0005 = 

BDDS 

EQU 

5 

0000 = 

NBOOT 

EQU 

0000 

0000 = 

CRTS 

EQU 

OOH 

0001 = 

CRT 

EQU 

OlH 

0002 = 

RDR 

EQU 

02H 

0000 = 

RDRS 

EQU 

OOH 

0010 = 

SI06D 

EQU 

lOH 

0013 = 

SIDSl 

EQU 

SIOBD+3 

0015 = 

SI0S2 

EQU 

SIOBD+5 

0018 = 

SIOC 

EQU 

SI06D4B 

0012 = 

TTY 

EQU 

SlOBD+2 

0013 = 

TTYS 

EQU 

SIOBD+3 

0014 = 

MODEM 

EQU 

SIOBD+4 

0015 = 

MODEMS 

EQU 

SIOBD+5 


I/O STATUS BITS 


EQUATES FOR ASCII CHARACTERS 


0001 = 

SOH 

EQU 

OlH 

0003 = 

CTRLC 

EQU 

03H 

0008 = 

BS 

EQU 

OSH 

0009 = 

TAB 

EQU 

09H 

OOOA = 

LF 

EQU 

OAH 

OOOC = 

■ FF 

EQU 

OCH 

OOOD = 

CR 

EQU 

ODH 

001 A = 

CTRL! 

EQU 

lAH 

OOIB = 

ESC 

EQU 

IBH 

005F = 

UNDERLINE EQU 

5FH 

007F = , 

RUBOUT 

! 

EQU 

7FH 

FOOO 


ORG 

OFOOOH 


5 LOCATION OF BOOTSTRAP MESSAGE 


CRT STATUS PORT 
CRT I/O PORT 

PAPER TAPE READER INPUT PORT 

PAPER TAPE READER STATUS 

BASE PORT # OF SIO BOARD 

STATUS PORT OF IMSAI SERIAL I/O BOARD TO INIT 

STATUS PORT OF TOTHER 

CONTROL PORT FOR SIO BOARD (BOTH CHANNELS) 

DIABLO PRINTER I/O PORT 

DIABLO STATUS PORT 

MODEM I/D PORT 

MODEM STATUS PORT 


; ENTRY POINT TABLE 


FOOO 

mm 

ENTAB 

3MP 

INITIO 

;COLD START. 

F003 

C30000 

HBOTE 

JMP 

NBOOT 

;COHE HERE TO INITIATE REBOOT (VIA LOC 0) 

F006 

000000 


DB 

00,00,00 

;JMP 

CONSTAT 

F009 

000000 


DB 

00,00,00 

;JMP 

CONIN 

FOOC 

000000 


DB 

00,00,00 

;JHP 

CONOUT 
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PRN 


PA6E 002 



FOOF C351F0 


JMP 

LIST 



F012 CSBIFO 


JMP 

PUNCH 



F015 C3i2F0 


JMP 

READER 



FOIB 000000 


DB 

00,00,00 

(JMP 

HOME 

FOIB 000000 


DB 

00,00,00 

5 JMP 

SELDSK 

FOIE 000000 


DB 

00,00,00 

;JMP 

SETTRK 

F021 000000 


DB 

00,00,00 

jJMP 

SETSEC 

F024 000000 


DB 

00,00,00 

;JHP 

SETDMA 

F027 000000 


DB 

00,00,00 

;JMP 

READ 

F02A 000000 


DB 

00,00,00 

jJMP 

NRITE 

F02D C349F0 


JMP 

LISTST 



F030 000000 


DB 

00,00,00 

jJMP 

SECTRAN 

F033 C366F0 


JMP 

INITIO 

(CBIOS I/O EXTERNAL INITIALIZATION ENTRY 

F036 C363F0 


JMP 

NIM 

jFOR RESTART 7: 61 VE ERROR HESSABE 

F039 = 

ENDTB: 

EQU 

i 

(END OF JUMP VECTOR 


ttutttuntttuntttutuuuutHtimutuutttut 

PHYSICAL DEVICE ROUTINES 


i TELETYPE INPUT 
TTYIN; 


F039 CD44F0 

CALL 

TTYSTAT 

F03C CA39F0 

31 

TTYIN 

F03F DB12 

IN 

TTY 

F041 E67F 

ANI 

7FH 

F043 C9 

RET 



TTYSTAT: 


F044 DB13 

IN 

TTYS 

F04i E602 

ANI 

02H 

F04B C9 

RET 



TI BiO PRINTER DRIVER 



• 


F049 DB13 

LISTST: IN 

TTYS 

F04B E680 

ANI 

BOH 

F04D CB 

RZ 


F04E 3EFF 

MVI 

A,OFFH 

F050 C9 

RET 



LIST: 


F051 CD49F0 

CALL 

LISTST 

F054 CA51F0 

iz 

LIST 

F057 DB13 

IN 

TTYS 

F059 OF 

RRC 


F05A D251F0 

JNC 

LIST 

F05D 79 

MOV 

A,C 

FOSE D312 

OUT 

TTY 

F060 C9 

RET 


F061 C9 

PUNCH: RET 



;NAIT FOR A CHAR TO 6E AVAILABLE 
; INPUT IT 
5 REMOVE PARITY 


;USED HERE AND IN CONSTAT ABOVE 
;GET STATUS 
;MASK BIT 

5 A IS NON-0 IF CHAR AVAILABLE 


;BUSY 
5 NOT BUSY 


; STATUS 
iTEST BIT 0 

;HA1T TILL READY TO ACCEPT CHARACTER 


(OUTPUT THE CHARACTER 
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F062 C9 READER: RET 


tttnttuttutuuMTUUttuntmutututntuu 

STARTUP It RESTART STUFF 


RESTART 7 ROUTINE. PRESUHABLT MEANS 3MP TO NON-EXISTENT MEMORY 
I TYPES "CRASH* AND TOP OF STACK (PRESUMED TO BE PC) 

AND BYTE TOP OF STACK POINTS TO 


F063 C30000 


NXM: JMP HBOOT 5 POP B 5 GET PC OF CRASH (OR MAYBE GARBAGE) 

i LX I SP.IOOH ; SET UP STACK BELON lOOH 

; PUSH B ;SAVE THAT PC 

;jTYPE "CRASH* 

; LXI H,NXHMSe 

; CALL CONOMSG 

jjTYPE NHAT IS PROBABLY THE PC OF THE PROBLEM 

5 POP H 5 BET NHAT NAS ON STACK AT ENTRY TO NXM 


MOV 

A,H 

5 HI ORDER BYTE 

CALL 

HOUT 

;HEX OUTPUT A 

MOV 

A,L 

•,L0 ORDER BYTE 

CALL 

HOUT 



;TYPE BYTE TOP OF STACK-1 POINTS TO: THIS MIGHT BE THE INSTRUCTION 
ITHAT CAUSED CRASH (RST-7, ETC) 


MVI 

C,’ ’ 


CALL 

CONOUT 

;TYPE A SPACE 

DCX 

H 

5 POINT ONE LESS 

MOV 

A,M 

{GET BYTE 

CALL 

HOUT 

{OUTPUT IT 

1 REBOOT THE 
JMP 

j 

SYSTEM, SAME AS ANY NARM RESTART 
NBOOT 


OUT OF LINE STUFF FOR NXM 


! 

{TYPE MESSAGE HL POINTS TO ON CONSOLE. TERMINATED BY 

CONOMSG: 



MOV 

A,M 

{GET A CHAR OF MESSAGE 

ORA 

A 

{SET FLAGS 

RZ 


{DONE IF 0 BYTE 

MOV 

C,A 

{TO C-REG FOR CONOUT 

..-CALL 

CONOUT 

{OUTPUT IT ON CONSOLE 

■' INX 

H 

{POINT NEXT CHARACTER 

JMP 

CONOMSG 

{KEEP OUTPUTTING TO END 


I 


{HEX OUTPUT 

(A) TO CONSOLE 

HOUT: PUSH 

PSN 

RRC 


RRC 


RRC 
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RRC 


• 

f 

CALL 

HOUTNIBL 


• 

f 

POP 

PSW 


iHOUTNIBL: 




ANI 

OFH 

;MASK 4 BITS 


CPI 

10 

; IS IT A OR BIGGER 


JM 

HN6L1 

;IF NO 


ADI 

’A’-’O’- 

10 ;YES, ADD DIFFERENCE BETWEEN ASCII A AND 9+1 

;HNBL1: 

ADI 

’0’ 

; CONVERT IT TO ASCII CHARACTER 


MOV 

C,A 

;T0 C REGISTER FOR CONOUT 


JHP 

CONOUT 

; PRINT IT AND RETRURN 


; COLD BOOT INITIALIZATION 
COLDBOOT; 

5 5 INITIALIZE lOBYT FROH SNITCHES 

I } 

IN OFFH 

CPI OFFH 

JNZ COLDBTl 

nVl A,PORTFF iDEFAULT lOBYTE IF NO PORT FF 

iCOLDBTlsSTA lOBYT 

MVI D,OFFH 5 COLD START FLAG 

JHP GOCPN |G0 COHPLETE INITIALIZATION 


GOCPN; 

j’JHP NXH' FOR RESTART 7 (DDT NILL CHANGE IF USED). THIS IS ACCESSED AFTER 
li A JNP INTO NON-EXISTENT HEHORY, ALSO BY NRITE PROTECT VIOLATION ON RAH-4A 
i IF HIRED DIRECT TO MNT' LINE BY USER. AN IHSAI EXTENSION OF BIOS FUNCTIONS.; 


LXl 

H,NXM 

STA 

038H 

SHLD 

038H+1 


;SET USER EXIT INSTRUCTION TO NOPS FOLLOWED BY A RET 

LXl H,0 |THO NOPS 
SHLD USEREXIT 

HVl H,0C9H ; A NOP AND A RET 
SHLD USEREXIT+2 

! 

MOV A,D 

ORA A 

- jZ HB00T9 ; IF HARM RESTART 

! 

jCOLD START ONLY: 
i 

i SIGN-ON MESSAGE 

LXI H, MESSAGE , -MESSAGE TEXT IS IN BOOT RECORD 

MSLOOP: MOV C,M 

CALL CONOUT ;USE CHAR TYPING ROUTINE IN BIOS 
INX H 

MOV A,M 
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; ORA 

A 



; JNZ 

t • 

) ) 

HSLOOP 



InITIO; 

5 


jSUBROUTINE TO INITIALIZE I/O PORTS 


;«VI AjPORTFF 



;STA lOBYT 

• 

f 




• 

1 

5 INITIALIZE BOTH CHANNELS OF 

IHSAI SERIAL INTERFACE BOARD 


;IF SIO HAS JUST BEEN RESET, 

IT EXPECTS A 'HODE- THEN A -COHHAND". 


iBUT IF IT HASN’T BEEN RESET 

(HARH START), IT IS NOT EXPECTING A *HODE- 


;SO HE SEND IT A DUHHY THAT LEAVES IT EIPECTINB A COHHAND REBARDLESS, 


;THEN A RESET COHHAND (40H), 

THEN DESIRED NODE AND COHHAND. 

F066 219iF0 

LXI 

H,SIOSTRINB 


F069 7E 

HOV 

A,H 


F06A D313 

SIOLUP: OUT 

SIOSl 


F06C D315 

OUT 

SI0S2 


F06E 23 

INX 

H 


F04F 7E 

HOV 

A,n 


F070 B7 

ORA 

A 


F071 C26AF0 

JNZ 

SIOLUP 


F074 AF 

XRA 

A 

{TURN OFF INTERUPTS AND 

F075 D318 

OUT 

• 

J 

SIOC 

; . . . CARRIER DETECT, BOTH CHANNELS 


SI6N0N HESSAGE 


F077 0E09 

HVI 

C,9 

F079 115E00 

LXI 

D,SIGNON 

F07C CD0500 

CALL 

BDOS 

F07F 0E09 

HVI 

C,9 

F081 1I96F0 

LXI 

D,HESSABE 

F084 CD0500 

CALL 

BDOS 

F087 C9 

5 

RET 





> 


FOBS 0D0A435241NXRHSB: DB 

ODH,OAH, ’CRASH ’,0 

{TEXT USED BY -NXH* ROUTINE 

; BYTES TO SEND TO SIO STATUS PORTS 


F091 AE405A1700SIOSTRING: DB 

0AEH,40H,05AH,17H,0 


HESSAGE: 

F096 0A0D285749 DB 

FOAB 4630303029 DB 

0AH,0DH,’(H1TH lOPROH 
’F000)’,0AH,0DH,24H 

IN AT ’ 


» 



ENDIOPROH; 

F0B3 

) 

j 

END 
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0005 BOOS 

0008 6S 

OOOD CR 

0000 CRTS 

0001 CRT 

0003 CTRLC 

OOIA CTRL! 

F0B3 ENDIOPROH 

F039 ENDTB 

FOOO ENTAB 

OOIB ESC 

OOOC FF 

F066 INITIO 

OOOA LF 

F051 LIST 

F049 LISTS! 

F096 HESSASE 

0014 MODEM 

0015 MODEMS 

F063 NIM 

FOBS NKMfiSB 

F061 PUNCH 

0002 RDR 

0000 RDRS 

F062 READER 

007F RUBOUT 

005E SIGNON 

0010 SIOBD 

0018 SIOC 

F06A SIOLUP 

0013 SIOSl 

0015 SI0S2 

F091 SIOSTRINB 

0001 SOH 

0009 TAB 

0012 TTY 

0000 KBOOT 

F039 TTYIN 

F003 HBOTE 

0013 TTYS 

F044 TTYSTAT 

005F UNDERLINE 
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BOOTSTRAP PROGRAM FOR MICROHATION 

REVISED FOR CAVRO STD SYSTEM OCT 81 
VERSION 2 REV 2 OCT 11, 1981 

mmnnnttnnmtmtmmttmmumttmummmtm 


0000 


ORG OOOOH 


EQUATES FOR CP/M LOCATIONS 

HSIZE DETERMINES THE LOCATION IN MEMORY NHERE THE BOOTSTRAP LOADS 
THE CP/M OPERATING SYSTEM. 


0038 = 

HSIZE 

EQU 

56 

5 SET FOR A 48K SYSTEM, CHANGE WHEN SYSTEM 





;SIZE CHANGES. 


FBOO = 

CONTROLLER 

EQU 

0F800H 

FCOO = 

BUFF 

EQU 

CONTROLLER+4O0H 

FE02 = 

UARTDATA 

EQU 

CONTROLLER+602H 

FEOA = 

UARTSTAT 

EQU 

C0NTR0LLER+60AH 


==»> 

DO NOT 

SUBSTITUTE BOTH 20 ITHENTY) ON NEXT LINE !!! 

9000 = 

CBASE 

EQU 

<MSIZE-20) 41024 ;BIAS FOR SYSTEMS LARGER THAN 20K 

CC06 = 

BDOS 

EQU 

CBASEt3C06H 

C400 = 

CCP 

EQU 

CBASEt3400H 5 BASE OF CONSOLE COMMAND PROCESSOR, 16K 

C380 = 

CCPM 

EQU 

CCP-128 1 START OF LOAD TO SKIP BOOT 

DAOO = 

COLDBOOT 

EQU 

CBASE+4A00H ;COLD START BOOT 


1 EQUATES FOR RESERVED ROM LOCATIONS 

FB03 = 

HOME 

EQU 

CONTROLLER+3 

F809 = 

SETTRK 

EQU 

CONTROLLER+9 ;SET TRACK 

F80C = 

SETSEC 

EQU 

CONTROLLER+OCH |SET SECTOR NUMBER 

FSOF = 

SETDHA 

EQU 

CONTROLLER+OFH ;BET DMA FUNCTION 

Fei2 = 

READ 

EQU 

C0NTR0LLER+12H iDISK READ 

FC03 = 

CONTROLBYTE 

EQU 

BUFF+3 

FC04 = 

TRACK 

EQU 

BUFF+4 

FCOA = 

■’ SECTOR 

EQU 

BUFF+OAH 

FCOB = 

DMA 

EQU 

BUFF+OBH 

FCOF = 

THOSIDE 

EQU 

BUFF+OFH 

FCIO = 

STEPTIME 

EQU 

BUFFtlOH 

OOOD = 

CR 

EQU 

ODH 

OOOA =, 

LF 

EQU 

OAH 


j 


t 


0000 31B0C3 

BOOT: 

LXI 

SP,CCPH 

0003 CD03FB 


CALL 

HOME 

0006 2100C3 


LXI 

H,CCPH-80H 

0009 220BFC 


SHLD 

DMA 

OOOC OEOO 

RDTRK: 

MV I 

C,0 

OOOE 79 

RDSEC: 

MOV 

A,C 

OOOF FEIA 


CPI 

26 

0011 CA2E00 


JZ 

NXTTRK 

0014 118000 


LXI 

D,128 

0017 2A0BFC 


LHLD 

DMA 
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OOIA 

19 


DAD 

D 

OOIB 

OC 


I NR 

C 

OOlC 

CDOCFB 


CALL 

SETSEC 

00 IF 

C5 


PUSH 

B 

0020 

220BFC 


SHLD 

DHA 

0023 

F3 

RELP 

DI 


0024 

CD12F8 


CALL 

READ 



i 

1 

El 

|C( 

0027 

C20000 


JNZ 

BOOT 

002A 

Cl 


POP 

B 

002B 

C30E00 


JHP 

RDSEC 

002E 

3A04FC 

NXTTRK 

LDA 

TRACK 

0031 

B7 


ORA 

A 

0032 

C23D00 


JNZ 

INIT 

0035 

OEOl 


HVI 

C,1 

0037 

CD09F8 


CALL 

SETTRK 

003A 

C30C00 


JHP 

RDTRK 

003D 

210AFE 

INIT 

LXl 

H, UARTSTAT 

0040 

360E 


HVI 

H,OEH 

0042 

00 


NOP 


0043 

00 


NOP 


0044 

3640 


HVI 

H,40H 

0046 

00 


NOP 


0047 

00 


NOP 


0048 

36EE 


HVI 

H,OEEH 

004A 

00 


NOP 


004B 

00 


NOP 


004C 

3605 


HVI 

H,5 

004E 

3E05 


HVI 

A, 5 

0050 

3210FC 


STA 

STEPTIHE 

0053 

0E09 


HVI 

C,9 

0055 

115E00 


LXI 

D, SIGNON 

0058 

CD06CC 


CALL 

BDOS 

005B 

C300DA 


JHP 

COLDBOOT 

005E 



0R6 

5EH 

005E 

ODOA ' 

’ SIGNON 

DB CR,LF 


iCOrtENTED OUT 


0060 35 

0061 36 

0062 4B2043502F 

CC06 BDOS 0 

C380 CCP^ D 

OOOD CR F 

003B HSIZE 0 

0023 RELP F 

005E S16N0N F 

FEOA UARTSTAT 


jHARDHARE UART INITIALIZATION ROUTINES 
; USED FOR THE 8251 UART 


i THE NOP INSTRUCTIONS ARE NEEDED 

5 ONLY IF USINB A 4 HHZ CPU THAT PUTS 

; A 2HHZ CLOCK ON PIN 49 ON THE BUS 
jSTEPTIHE FOR SHUGART DRIVES 


0000 BOOT 
DAOO COLDBOOT 
FCOB DHA 
002E NZTTRK 
FCOA SECTOR 
FCIO'STEPTIHE 


DB HSI2E/10+30H 

DB HSIZE HOD 10 + 30H 

DB 'K CP/H - HICROHATION VER 2.2$ 

FCOO BUFF 9000 CBASE C‘ 

FC03 CONTROLBYTE F 


F803 HOHE 
OOOE RDSEC 
FBOF SETDHA 
FC04 TRACK 


003D INIT 
OOOC RDTRK 
F80C SETSEC 
FCOF TNOSIDE 


C400 CCP 
F800 CONTROLLER 
OOOA LF 
F812 READ 
FB09 SETTRK 
FE02 UARTDATA 
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EEOO ORB IQPR0H-200H 


EEOO 5A32494F50DB ’Z210PR0H VER 1.7 REV 2 JER 10/11/81’ 


EE24 434156524FDB ’CAVRO CP/M BASIC I/O SYSTEM’ 
EE3F 434F505952DB ’COPYRIBHT (C) 1978,’ 

EE52 43415fi524FDB ’CAVRO SCIENTIFIC INSTRUMENTS’ 

EE6E 3132333420DB ’1234 ELKO DRIVE’ 

EE7D 53554E4E59DB ’SUNNYVALE, CA 94086’ 

i SYSTEM PARAMETER EQUATES 


FOOO = 

lOPROM EQU 

OFOOOH 

E800 = 

VIOMEM EQU 

0E800K 

F400 = 

VIDEO EQU 

I0PR0N+400H 

005E = 

S16N0N EQU 

05EH 

0001 = 

TUARTIO EQU 

1 

0081 = 

PORTFF EQU 

BIH 

F800 = 

COLDBOOT EQU 

5 

0F800H 


» 

s 

; EXTERNAL ENTRY POINTS 

5 


f 

t 

i LONER RAH MEMORY ASSIGNMENTS 

0000 = 

NBOOT EQU 

0 

0003 = 

lOBYT EQU 

3 

0004 = 

"LOBDISK EQU 

4 

0005 = 

ENTRYJMP EQU 

5 

0005 = 

BDOS EQU 

5 


1/0 PORT EQUATES 


• 

0000 = 

5 

CRTS 

ECU 

OOH 

0001 = 

CRT 

EQU 

OlH 

0002 = 

RDR 

.-EQU 

02H 

0000 = 

RDRS 

EQU 

OOH 

0020 = 

TUART 

EQU 

20H 

0020 = 

TUARTAS EQU 

TUART 

0021 = 

TUARTA 

EQU 

TUART AS+1 

0022 = 

TUARTAC EQU 

TUARTA+1 

0023 = 

TUART AM EQU . 

TUARTAC+1 

0030 = 

TUARTBS EQU 

TUART+lOH 

0031 = 

TUARTE 

EQU 

TUARTBS+1 

0032 = 

TUARTBC EQU 

TUARTB+1 


jHHERE PROM BASIC I/O SYSTEM JUMP VECTOR STARTS 


LOCATION OF BOOTSTRAP HESSA6E 
PERSCI = 0 TO BENERATE CODE FOR SHUBART DRIVES 
TUARTIO = 1 TO GENERATE CODE FOR TUART BOARD 
TUARTIO = 0 TO BENERATE CODE FOR 2-SIO BOARD 
iPORT FF INPUT DEFAULT IS VIO OUT AND 
TUARTA PARALLEL IN CHANNEL ON TUART 


HHERE TO PUT JMP REBOOT 
INTEL COMPATIBLE I/O CONTROL BYTE 
INHERE CP/M STORES LOBGEN ON DISK NO. 
HHERE TO PUT JMP ENTRYPOINT 


iCRT STATUS PORT 
;CRT I/O PORT 

; PAPER TAPE READER INPUT PORT 
; PAPER TAPE READER STATUS 
;BASE PORT t OF TUART BOARD 
i TUART PORT A STATUS 
i TUART PORT A SERIAL DATA 
; TUART PORT A COMMAND 
; TUART PORT A INTERRUPT MASK 
i TUART PORT B STATUS 
i TUART PORT B SERIAL DATA 
: TUART PORT B COMMAND 
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0033 = TUARTBK ESU TUARTBC+1 jTUART PORT B INTERRUPT MASK 

i I/O STATUS BITS 

0080 = TUARTBE EBU 80H jTUART BUFFER EHPTY 

0040 = TUARTDA EBU 40H |TUART DATA AVAILABLE 


DISK SCRATCH AREA FOR DIGITAL SYSTEHS CONTROLLER 


0040 = 

SCRAT 

EBU 

40H 

; START OF SCRATCH AREA 

0040 = 

TRACK 

EBU 

SCRAT 

jCURRENT TRACK ON DRIVE 0 

0041 = 

TRAKl 

EBU 

TRACK+1 

; CURRENT TRACK ON DRIVE 1 

0042 = 

SECTOR 

EBU 

SCRAT+2 

; CURRENTLY SELECTED SECTOR 

0043 = 

DNAAD 

EBU 

SCRAT+3 

; CURRENT DNA ADDRESS 

0045 = 

DISKNO 

EBU 

SCRAT+5 

i CURRENT DISK NUNBER 

0046 = 

DUHNY 

EBU 

DISKNO+1 

iHUST BE ZERO FOR DOUBLE ADD 

0047 = 

ERRORS 

EBU 

DUHHY+l 

5 ERROR COUNTER 

0048 = 

FLAB 

EBU 

ERRORS+1 

;COLD/NARH START FLAG 

0049 = 

LCHARI 

EBU 

FLAB+l 

ILAST CONSOLE INPUT CHAR 

0049 = 

LCHARO 

EBU 

LCHARI 

5 LAST CONSOLE OUTPUT CHAR 

004C = 

USEREHT EBU 

4CH 

;USER EXIT INSTRUCTION FOR REALTIHE I/O 


SIGN ON HESSABE TYPED BY COLD START ROUTINE 


HESSA8E EBU SCH ;NESSA6E IN COLD BOOT RECORD 

EBUATES FOR ASCII CHARACTERS 


0001 = 

SOH 

EBU 

OlH 

0003 = 

CTRLC 

EBU 

03H 

0008 = 

BS 

EBU 

08H 

0009 = 

TAB 

EBU 

09H 

OOOA = 

LF 

EBU 

OAH 

OOOC = 

FF 

EBU 

OCH 

OOOD = 

CR 

EBU 

ODH 

OOIA = 

CTRLZ 

EBU 

lAH 

OOIB = 

ESC 

EBU 

IBH 

005F = 

UNDERLINE EBU 

5FH 

007F = 

RUBOUT 

EBU 

7FH 


;LET US BEGIN 

f 

FOOO ORG lOPROH i ORIGIN OF THIS PROGRAH 

; ENTRY POINT TABLE 


FOOO C3AEF1 

ENTAB 

JHP 

INITIO 

jCOLD START. 

F003 C30000 

NBOTE 

JNP 

NBOOT 

;COHE HERE TO INITIATE REBOOT (VIA LOC 0) 

F006 C339F0 


JNP 

CONSTAT 


F009 C351F0 


JHP 

CONIN 


FOOC C37EF0 


JHP 

CONOUT 
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FOOF C38CF0 


jup 

LIST 



F012 C39CF0 


3HP 

PUNCH 



F015 C3ADF0 


3«P 

READER 



FOIB 000000 


DB 

00,00,00 

; JHP 

HOHE 

FOIB 000000 


DB 

00,00,00 

5 JHP 

SELDSK 

FOIE 000000 


DB 

00,00,00 

; JHP 

SETTRK 

F021 000000 


DB 

00,00,00 

; JHP 

SETSEC 

F024 000000 


DB 

00,00,00 

; JHP 

SETDHA 

F027 000000 


DB 

00,00,00 

i JHP 

READ 

F02A 000000 


DB 

00,00,00 

; JHP 

NRITE 

F02D C31BF1 


JHP 

LISTST 



F030 000000 


DB 

00,00,00 

i JHP 

SECTRAN 

F033 C3AEFI 


JHP 

INITIO 

jCIOPROH I/O EXTERNAL INITIALIZATION ENTRY 

F03i C36AF1 


JHP 

Nxn 

;FOR RESTART 7; 

GIVE ERROR HESSAGE 

F039 = 

ENDTB: 

f 

EQU 

i 

jEND OF JUHP VECTOR 


tmmmmmmtttnmmmmttmmtt 


LOGICAL DEVICE ROUTINES 

THESE ROUTINES USE VARIOUS PHYSICAL DEVICES 
I DEPENDING ON THE CONTENTS OF lOBYT 


CONSOLE STATUS 


F039 CD41F0 

CONSTAT; CALL 

CONS 

;eETS STATUS OF SPECIFIC DEVICE 

F03C B7 

ORA 

A 


F03D CB 

RZ 


;IF NOT READY, RETURN 0 IN A 

FD3E 3EFF 

HVI 

A,OFFH 

;ELSE RETURN FF 

F04O C9 

RET 



F041 3A0300 

CONS: LDA 

lOBYT iUSE BITS 1-0 TO DETERMINE CONSOLE DEVICE 

F044 CDBCFO 

CALL 

RLCDISPATCH 


F047 CCFO 

DN 

TTYSTAT 


F049 CEFO 

DM 

KEYBDS 


F04B F7F0 

DM 

TUARTASTAT 

;2: TUART PORT A 

F04D FCFO 

DM 

TUARTBSTAT 

j3: TUPART PORT B 


•READER STATUS FOR BATCH MODE; 

NEVER A CHARACTER READY. 


;THIS IS CAUSE PRESENCE OF A CHARACTER FREQUENTLY HEANS 


; 'ABORT MHAT YOU’RE DOING'. 



READERSTAT: 



F04F AF 

XRA 

A 


F050 CS 

RET 




CONSOLE IN 


F051 3A0300 

CONTN: LDA 

lOBYT 

F054 CDBCFO 

CALL 

RLCDISPATCH 

F057 CCFO 

DM 

TTYIN ;0; TTY 

F059 DBFO 

DM 

KEYED ;1: KEYBOARD TUART A PARALLEL 

F05B OlFl 

DM 

TUARTAIN i2; TUART A INPUT 

F05D OEFl 

DM 

TUART8IN i.3: TUART B INPUT 


i 

CONI X IT: 

i CONSOLE INPUT POST-PROCESSING 

F05F F5 

PUSH 

PSM iSAVE LAST INPUT CHAR 
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FOAO 3A4900 

LDA 

LCHARI 

;6ET PREVIOUS INPUT CHAR 

F063 FEOl 

CPI 

SOH 

5 NAS IT A SOH? 

F065 C279F0 

3NZ 

CONIXl 

ilF NOT, SKIP CHECKS 

FOAO FI 

POP 

PSN 

1 RESTORE LAST INPUT CHAR 

F0A9 FE43 

CPI 

’C’ 

jNAS IT A C? 

FOAB CAOOFB 

31 

0F800H 

ilF SO GO COLDBOQT CP/H 

FOAE FE38 

CPI 

’8’ 


F070 CA00A9 

JZ 

0A900H 

{RETURN TO 48K CP/H 

F073 FE30 

CPI 

’0’ 


F075 CA0089 

31 

08900H 

{RETURN TO 40K CP/H 

F078 F5 

PUSH 

PSN 

(OTHERNISE, STICK CHAR BACK ON STACK 

F079 FI 

CONIXl! POP 

PSH 

{RESTORE LAST INPUT CHAR 

F07A 324900 

STA 

LCHARI 

{SAVE IT UNTIL NEXT TIHE 

F07D C9 

RET 




CONSOLE GUT 



5 

{HUST PRESERVE HL FOR NXH AND BOOTSTRAP 

F07E 3A0300 

CONOUT: LDA 

lOBYT 

F081 CDBCFO 

CALL 

RLCDISPATCH {GO TO ONE OF FOLLOHING ADDRESSES 

F084 CDFO 

DH 

TTYOUT {B1TS=0: USE TTY AS CONSOLE 

F08A F3F0 

DN 

CRTOUT {1: CRT 

F088 24F1 

DN 

TUARTAOUT {2! TUART A OUTPUT 

F08A 3AF1 

DH 

TUARTBOUT {3: TUART B OUTPUT 


LIST OUT 


F08C 3A0300 

LIST: 

LDA 

lOBYT 

F08F 07 


RLC 

{BITS 7-6 TO 2-1 

F090 07 


RLC 


F091 CDBCFO 


CALL 

RLCDISPATCH 

F094 CDFO 


DN 

TTYOUT {0: TTY 

F096 F3F0 


DN 

CRTOUT {1: CRT ■ 

F098 24F1 


DN 

TUARTAOUT {^^ LINE PRINTER 

F09A 47F1 


DN 

PRINTER {3: TUARTAOUT PARALLEL 


PUNCH OUT 


F09C 3A0300 

f 

PUNCH: 

LDA 

lOBYT (BITS 4-5 TO 1-2 

F09F OF 


RRC 


FOAO OF 


RRC 


FOAl OF 


RRC 


F0A2 CDBDFO 


CALL 

DISPATCH 

F0A5 CDFO 


DN 

TTYOUT {0: TTY 

F0A7 F3f0 


DN 

PUNO {h HIGH SPEED PUNCH 

F0A9 69F1 


DH 

HODEHOUT {2: HODEH OUTPUT 

FOAB F3F0 


DN 

NULLO ;3: UNASSIGNED 


reb'der in 


FOAD 3A0300 

READER: LDA 

lOBYT i 

BITS 3-2 TO 2-1 

FOBO OF 

RRC 



FOBl CDBDFO 

CALL 

DISPATCH 


F0B4 CCFO 

DN 

TTYIN 

(0: TTY 

F0B6 59F1 

DN 

RDRIN 

{1: HIGH SPEED 

FOBS 69F1 

DN 

HODEH IN 

{2: HODEH INPUT 

FOBA 56F1 

DN 

NULLl 

{3: UNASSIGNED 
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SUBROUTINE TO DISPATCH TO ONE OF 4 FOLLOHINB ADDRESSES 
iDEPENDINB ON lOBYT BITS CALLER HAS POSITIONED IN 
BITS 2 AND 1 OF A. 

RETURNS TO SUBROUTINE CALL PRIOR TO CALL TO DISPATCH. 


FOBC 07 

5 

RLCDISPATCH: 

RLC 


FOBD E606 

DISPATCH: ANI 

06H 

jHASK BITS 

FOBF E3 

XTHL 


{SAVE CALLER’S H, BET TABLE ADDRESS 

FOCO D5. 

PUSH 

D 


FOCI 5F 

HOV 

E,A 


F0C2 1600 

HVI 

D,0 

5 SET UP FOR DAD 

F0C4 19 

DAD 

D 

i INDEX INTO TABLE 

F0C5 7E 

HOV 

A,H 


F0C6 23 

INX 

H 


F0C7 66 

HOV 

H,H 

STABLE WORD TO HL 

FOCB 6F 

HOV 

L,A 


F0C9 D1 

POP 

D 


FOCA E3 

XTHL 


;PUT ADDRESS OF ROUTINE, GET CALLER’S H 

FOCB C9 

RET 


5 GO TO ROUTINE ! 


nutmumittuutttttttittttuiMttutnuuutu 

PHYSICAL DEVICE ROUTINES 

ADDRESSED BY LOGICAL DEVICE ROUTINES ABOVE, 

TTY AND CRT HAY ALSO HAVE EXTERNAL ENTRY POINTS 


TELETYPE INPUT 


FOCC C9 


TTYIN: 


TTYSTAT: 


IF 

NOT TUARTIO 

CALL 

TTYSTAT 


JZ 

TTYIN 

illAIT FOR A CHAR TO BE AVAILABLE 

IN 

TTY 

.•INPUT IT 

ANI 

7FH 

; REHOVE PARITY 

JHP 

CONIXIT 

; POST-PROCESS CHAR 

ENDIF 





lUSED HERE AND IN CONSTAT ABOVE 

IF 

NOT TUARTIO 

IN 

TTYS 

;GET STATUS 

ANI 

02H 

iHASK BIT 

ENDIF 



RET 


;A IS NON-0 IF CHAR AVAILABLE 


TELETYPE OUTPUT 


iCLOBBERS DE. BOOT DEPENDS ON PRESERVING HL 
I HOST PRESERVE HL FOR NXH, BOOTSTRAP 
TTYOUT; 

IF NOT TUARTIO 
IN TTYS I STATUS 
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RRC 


;TEST BIT 0 

JNC 

TTYOUT 

jHAIT TILL READY TO ACCEPT CHARACTER 

MOV 

A,C 


OUT 

TTY 

{OUTPUT THE CHARACTER 

CPI 

CR 


RNZ 


{DONE EXCEPT CR 


; DELAY 100 MSEC FOR CR, FOR SLOH-RETURNINB TERMINALS 
LX I D,10500D 

ENDIF 

TTYHTl: 

IF NOT TUARTIO 

DCX D 

ORA D ; DEPENDS ON A7=0 AT ENTRY TO ROUTINE 

JP TTYHTl ;LOOP TAKES 9.5 USEC PER COUNT 

ENDIF 

FOCD C9 RET 


CRT INPUT 

> 

jHORE CONVENIENT CRT INPUT FOR LEAR-SIEBLER ADM-3 
LSCRTIN; 

CALL CRTIN jGET CHAR FROM REGULAR ROUTINE 
I IGNORE BREAK KEY - ITS EASY TO FUMBLE AND HIT IT 
31 LSCRTIN 

; CONVERT UNDERLINE (ARROH ON OLDER KEYBOARDS) TO RUBOUT 
iSO IT ISN’T NECESSARY TO USE SHIFT KEY TO CORRECT ERRORS 
I NOT DESIRABLE IF YOUR KEYBOARD HAS BACK ARROH. 

CPI UNDERLINE 

JNZ CONIXIT -.POST-PROCESS CHAR 

MVI A, RUBOUT 

JMP CONIXIT ;PDST-PROCESS CHAR 

NOTE: IF TYPEINB n TO THE EDITOR ERASES THE SCREEN ON YOUR ADM-3, 
OPEN IT UP AND SET THE ’CLEAR SCREEN’ SNITCH TO ’DISABLE’. 


ijCRTOWUT 

f • 

f > 

" jjMUST PRESERVE HL FOR BOOT, NXM 
;; CLOBBERS DE 

;CRT INPUT TUARTAIN PARALLEL 


KEYBDS: 


FOCE 

F3, 


DI 


FOCF 

3E0A 


MVI 

A, 04 

FODl 

D323 


OUT 

23H 

F0D3 

DB20 


-IN 

20H 

F0D5 

EG20 


AN I 

20H 

F0D7 

C9 


RET 


F0D8 

00 


NOP 


F0D9 

00 


NOP 


FODA 

00 


NOP 


FODB 

F3 

KEYBD: 

DI 


FODC 

3E04 

ST: 

MVI 

A, 04 

FODE 

D323 


OUT 

23H 

FOEO 

DB20 


IN 

20H 
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F0E2 Ef.20 

ANI 

20H 


F0E4 CADCFO 

J2 

ST 


F0E7 DB23 

IN 

23H 


F0E9 DB24 

IN 

24H 


FOEB E67F 

ANI 

7FH 


FOED C35FF0 

JNP 

CONIXIT 


FOFO 00 

NOP 



FOFl 00 

NOP 



F0F2 00 

NOP 

ij 




i 5 
i 

CRTOUT; 




i HOV 

A,C 



; CPI 

ODH ;CR? 



; JZ 

NEWLINE ;YE5 


F0F3 CD00F4 

CALL 

VIDEO 


F0F6 C9 

RET 

5 




J 

ft 

> 

; ADD SPACE TO WOVE DISPLAY OVER 


» 

; NEWLINE: PUSH 

PSW 



; CALL 

VIDEO 



5 nvi 

A,20H jLOAD BLANKS 


; CALL 

VIDEO 



5 CALL 

VIDEO 



5 CALL 

VIDEO 



5 CALL 

VIDEO 



; POP 

PSW 



i RET 




5 

; TUART I/O 




! 

TUARTASTAT: 


; TUART PORT A STATUS ROUTINE 


IF 

TUART 10 


F0F7 DB20 

IN 

TOARTAS 

;BET STATUS 

F0F9 E640 

ANI 

TUARTDA 

;DATA AVAILABLE? 

FOFB C9 

RET 




ENDIF 




TUARTBSTAT: 


iTUART PORT B STATUS ROUTINE 


IF 

TUARTID 


FOFC DB30 

IN 

TUARTBS 

iSET STATUS 

FOFE E640 

ANI 

TUARTDA 

;DATA AVAILABLE? 

FlOO C9 

RET 




ENDIF 




TUARTAIN: 


iTUART PORT A INPUT ROUTINE 


IF 

TUARTIO 


FlOl CDF7F0 

CALL 

TUARTASTAT 

{CHECK STATUS 

F104 CAOIFI 

JZ 

TUARTAIN 

{LOOP TIL CHAR READY 

F107 DB21 

IN 

TUARTA 

jREAD DATA CHAR 

FI 09 E67F 

ANI 

7FH 

iSTRlP PARITY 

FlOB C35FF0 

JRP 

CONIXIT 

iPOST PROCESS CHAR 


ENDIF 
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TUARTBIN; jTUART PORT B INPUT ROUTINE 



IF 

TUARTIO 


FlOE CDFCFO 

CALL 

TUARTBSTAT 

i CHECK STATUS 

Fill CAOEFl 

J2 

TUARTBIN 

;LOQP TIL CHAR READY 

FI 14 DB31 

IN 

TUARTB 

5 READ DATA CHAR 

FI 16 E67F 

ANI 

7FH 

5 STRIP PARITY BIT 

FI 18 C35FF0 

0«P 

ENDIF 

CONIXIT 

;POST PROCESS CHAR 


5 

jTUART 

IF 

LISTST: 

TUARTAST; 

PORT A OUTPUT ROUTINE 

TUARTIO 

FI IB DB20 

IN 

TUARTAS 

•(CHECK STATUS 

FllD F6FB 

OR I 

OFBH 

;IS PRINTER BUSY? 

FI IF 3C 

INR 

A 


F120 C8 

RZ 


5 YES, GO TaL’EH 

F121 3EFF 

nvi 

A.OFFH 


F123 C9 

RET 

TUARTAOUT; 


;N0 

F124 CDIBFI 

CALL 

TUARTAST 


FI 27 CA24F1 

JZ 

TUARTAOUT 

iLOOP UNTIL HOT BUSY 

F12A DB20 

BUFCHK; IN 

TUARTAS 


F12C F67F 

ORI 

07FH 

j CHECK IF BUFFER IS ENPTY 

F12E 3C 

INR 

A 


F12F C22AF1 

JNZ 

BUFCHK 


F132 79 

nov 

A,C 

; FETCH OUTPUT CHAR 

F133 D321 

OUT 

TUARTA 

;HRITE CHAR 

F135 C9 

RET 

ENBIF 

• 

TUARTBOUT; 

IF 

TUARTIO 

jEXIT 

;TUART PORT B OUTPUT 

FI 36 DB30 

IN 

TUARTBS 

{CHECK STATUS 

FI 38 E680 

ANI 

TUARTBE 

{BUFFER ENPTY? 

F13A CA36F1 

JZ 

TUARTBOUT 

{LOOP IF NOT 

F13D 79 

NOV 

A,C 

{FETCH OUTPUT CHAR 

F13E B7 ■’ 

ORA 

A 

{TEST PARITY 

F13F E244F1 

JPO 

TUARTBOl 

{SKIP IF PARITY ALREADY ODD 

F142 F680 

ORI 

TUARTBOl: 

80H 

{INSERT PARITY BIT 

F144 D331 

OUT 

ENDIF 

TUARTB 

{WRITE CHAR 

F146 C9 

RET 

• 

> 

1 

i 

5 

PRINTER 

{EXIT 


F147 OOOOOIWOOOPRINTER; DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00 

F155 C9 RET 
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i NULL DEVICE, FOR UNDEFINED DEVICES. 


5 

;FOR UNASSIGNED AND AND UNIMPLEMENTED INPUT DEVICES, 
;HERE IS AN INFINITE SOURCE OF EOF’S: 

F156 3E1A 

NULLI: MVI A,CTRLZ 

F158 C9 

RET 

F156 = 

NULLSTAT EBU NULLI ; CHARACTER ALNAYS READY 


DON’T USE CRT FOR UNASS INPUT DEVICES CAUSE IF THERE 
IS NO CRT ON SYSTEH BUT INTERFACE BOARD IS PRESENT, 
SYSTEM NILL HANG. 


iFOR UNUASS AND UNIHP OUTPUT DEVICES, USE CRT. 

; IF NO CRT IS PRESENT, THIS IS AN INFINITE DATA SINK. 
F0F3 = NULLO EQU CRTOUT 


HIGH SPEED READER DRIVER 


F159 CD64F1 

RDRIN 

CALL 

RDRSTAT 

F15C CA59FI 


JZ 

RDRIN 

jNAIT FOR AVAILABLE CHARACTER 

F15F DB02 


IN 

RDR 

jGET IT 

FlAl E67F 


ANI 

7FH 

j STRIP PARITY 

FI 63 C9 


RET 



Fi64 DBOO 

RDRSTAT IN 

RDRS 

5 GET STATUS 

F166 E620 


ANI 

20H 

{MASK BIT FOR RDR 

F168 C9 


RET 




> 

5 HERE IS WHERE TO PUT 

HIGH SPEED PUNCH DRIVER 

F0F3 = 

FUND 

EBU 

NULLO 

jMEANNHILE, USE NULL DEVICE 


MODEM -INPUT DRIVER 


MODEMIN; 

IF NOT TUARTIO 

CALL MODEMST 

JZ MODEMIN ;NAIT FOR A CHAR TO BE AVAILABLE 

IN MODEM iGET CHAR 

AMI 7FH jREMOVE PARITY 

RET 
ENDIF 
i 

MODEMST: 

IF NOT TUARTIO 

IN MODEMS 5 GET STATUS 

ANI 02H ;HASK BIT 

RET ;A IS NON-ZERO IF CHAR AVAILABLE 

ENDIF 

; MODEM OUTPUT DRIVER 
MODEMOUT: 


IF 

mi TUARTIO 


IN 

mum 

; STATUS 

RRC 


;TEST BIT 0 

JNC 

flODEHOUT 

:HAIT TIL READY 
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F169 C9 


FliA Cl 
F16B 310001 
F16E C5 

F16F 21FDF1 
F172 CD8BF1 

F175 El 
F176 7C 
F177 CD96F1 
F17A 7D 
F17B CD96F1 


F17E 0E2O 
F180 CD7EF0 
F183 2B 
F184 7E 
FI 85 CD96F1 

FI 88 C30000 


MOV A,C 

OUT MODEM 

END IF 
RET 


5 PUT THE CHAR 


mmmmnnttmtnntmmtummmntm 


STARTUP It RESTART STUFF 


RESTART 7 ROUTINE. PRESUMABLY MEANS JMP TO NON-EXISTENT MEMORY 
TYPES "CRASH* AND TOP OF STACK (PRESUMED TO BE PC) 

AND BYTE TOP OF STACK POINTS TO 


NXM: POP B iGET PC OF CRASH (OR MAYBE GARBAGE) 

LXI SP.IOOH ;SET UP STACK BELON lOOH 

PUSH B iSAVE THAT PC 

;TYPE "CRASH" 

LXI H,NXHHS6 

CALL CONOMSG 

iTYPE NHAT IS PROBABLY THE PC OF THE PROBLEM 

POP H 5 GET NHAT NAS ON STACK AT ENTRY TO HIM 

MOV A,H ;HI ORDER BYTE 

CALL HOUT 5 HEX OUTPUT A 

MOV A,L jLO ORDER BYTE 

CALL HOUT 

{TYPE BYTE TOP OF STACK-I POINTS TO: THIS MIGHT BE THE INSTRUCTION 
j THAT CAUSED CRASH IRST-7, ETC) 

MVI C,’ ’ 

CALL CONOUT {TYPE A SPACE 

DCX H {POINT ONE LESS 

MOV A,M {GET BYTE 

CALL HOUT {OUTPUT IT 

{REBOOT THE SYSTEM, SAME AS ANY NARM RESTART 
3MP NBOOT 


SP.IOOH {SET UP STACK BELON lOOH 
B {SAVE THAT PC 


{OUT OF LINE STUFF FOR NXM 
i 

{TYPE MESSAGE HL POINTS TO ON CONSOLE. TERMINATED BY 0 BYTE 
CONOMSG: 


F18B 7E 

MOV 

A,M 

{GET A CHAR OF MESSAGE 

F18C 17 

ORA 

A 

{SET FLAGS 

FIBD CB 

RZ 


{DONE IF 0 BYTE 

F18E 4F 

MOV 

C,A 

{TO C-REG FOR CONOUT 

F18F CD7EF0 

CALL 

CONOUT 

{OUTPUT IT ON CONSOLE 

F192 23 

INX 

H 

{POINT NEXT CHARACTER 

F193 C38BF1 

JMP 

CONOMSG 

{KEEP OUTPUTTING TO END 


{HEX OUTPUT (A) 

TO CONSOLE 

F196 F5 

HOUT; PUSH 

PSN 


F197 OF 

RRC 



F19B OF 

RRC 



F199 OF 

RRC 
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F19A OF 
F19B CD9FF1 
F19E FI 

F19F EiOF 
FlAl FEOA 
F1A3 FAASFl 
F1A6 C607 
F1A8 C630 
FIAA 4F 
FlAB C37EF0 


RRC 

CALL 

POP 

HOUTNIBL! 

ANI 

CPI 

jn 

ADI 

HHBLl: ADI 
MOV 
3HP 


HOUTNIBL 

PSN 

OFH ;HASK 4 BITS 

10 ; IS IT A OR BI6GER 

HN6L1 ;IF NO 

'A’-’O’-IO ;YES, ADD DIFFERENCE BETHEEN ASCII A AND 9+1 
’O' i CONVERT IT TO ASCII CHARACTER 

C,A ;T0 C REGISTER FOR CONOUT 

CONOUT i PRINT IT AND RETRURN 


INDIVIDUAL SUBROUTINES TO PERFORM EACH FUNCTION 


PUT THE VARIOUS JUMPS IN LONER RAM 

MVI A,0C3H j'JMP* OP CODE 

j'JMP REBOOT* AT 0 

LXI H,MEMT-200H+3 

STA NBOOT 

SHLD NBOOT+1 

;*JMP ENTRYPOINT* AT 5 FOR SYSTEM CALLS 
LXI H, ENTRYPOINT 

STA ENTRYJMP 

SHLD ENTRY JNP+1 


INITIO: 

! DO A DUMMY SET UP TO KILL TIME -- I DON’T KNON NHY 
NAIT: 



LXI 

SP,400H 


FIAE 060A 

MVI 

B,10D 

5 10 MILLISECONDS 

FIBO 2E1F 

DELAY: MVI 

L,31D 


F1B2 3A06FE 

DELAYl! LDA 

0FE06H 

jMICROMATION RDATA PORT 

F1B5 2D 

DCR 

L 


F1B6 C2B2F1 

JNZ 

DELAYl 


F1B9 05 

DCR 

B 


FIBA C2B0F1 

JNZ 

DELAY 



INITIALIZE BOTH CHANNELS OF CROMEMCO TUART BOARD 


FIBD AF 

i 

XRA 

A 

;MASK INTERRUPTS FOR BOTH PORTS 

FI BE D323 

OUT 

TUARTAM 


FICO D333 

OUT 

TUARTBM 


FIC2 3E01 

MVI 

A, 01 

; RESET BOTH PORTS 

F1C4 D322 

OUT 

TUARTAC 


FlCi D332 

OUT 

TUARTBC 


F1C8 3EC0 

MVI 

i 

A,0C0H 

; PORTA := 9600 BAUD 
;FOR 300 BUAD, USE 84 




; (FOR 1200 BAUD, USE 88) 

FICA D320 

OUT 

TUARTAS 


FlCC 3EA0 

MVI 

A,OAOH 

jPORT B != 4800 BUAD 
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FICE D330 

• 

I 

OUT 

TUARTBS 


I NIT Z2 lOBYTE 


FIDO 3E81 

t 

J 

NVI A.PORTFF 

F1D2 320300 

• 

J 

STA lOBYT 


INITIALIZE VIO BOARD TO 80 BY 24 



;AND CLEAR VIDEO PARAMETER AREA 


F1D5 21F0EF 


LX I 

H,VIOMEM+07FOH 

; CLEAR PARAMETER AREA 

F1D8 OEOF 


HVI 

CjOFH 


FIDA 3E00 


HVI 

A,0 


FIDO 77 

ZERO: 

MOV 

H,A 


FIDD 23 


INX 

H 


FIDE OD 


DCR 

C 


FIDF C2DCF1 


JNZ 

ZERO 


FIE2 21FFEF 


LX I 

H,VI0HEH+7FFH 

;INITIALIZE 

F1E5 3608 


MV I 

M,008H 

500X24 

F1E7 OEOB 


MVl 

C,0BH 

5 CLEAR SCREEN 

F1E9 CD00F4 

! 

CALL 

VIDEO 



SI6N-0N NESSASE 


FI EC 0E09 

MVl 

C,9 

FIEE 115E00 

LXI 

D,SI6N0N 

FlFl CD0500 

CALL 

BDOS 

F1F4 0E09 

MVl 

C,9 

F1F6 1106F2 

LXI 

D, MENAGE 

F1F9 CD0500 

CALL 

BDOS 

FIFC C9 

• 

RET 


• 

FIFD 0D0A435241NXMMSG: 

i 

DB 

0DH,0AH,’ CRASH ’,00H ;TEXT USED BY ’NXM' ROUTINE 

5 

MESSAGE: 


F206 0A0D285749 

DB 

0AH,0DH,MN1TH lOPROM IN AT ’ 

F2tB 46303030 

DB 

’FOOO’ 5 IOPROM/IOOO+ 3 OH 

F21F 2?0A0D24 

DB 

’)’,0AH,0DH,24H 


! 



ENDIOPROM: 

J 





F223 

f 

END 





0005 BDOS 

0008 BS 

F12A BUFCHK 

F800 COLDBOOT 

F051 

CONIN 

F079 CONI XI 

F05F COKIXIT 

FI8B C0N0HS6 

F07E CONQUT 

F041 

CONS 

F039 CONSTAT 

GOOD CR 

F0F3 CRTOUT 

0000 CRTS 

0001 

CRT 

0003 CTRLC 

001 A CTRLZ 

FI BO DELAY 

F1B2 DELAY! 

0045 DISKNO 

FOBD DISPATCH 

0043 DMAAD 

0046 DUMMY 

F223 ENDIOPROM 

F039 ENDTB 
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FOOO ENTAB 

0005 ENTRYJHP 

0047 ERRORS 

OOIB ESC 

OOOC FF 

0048 FLAB 

FlAB HNBLl 

FI 94 HOUT 

F19F HOUTNIBL 

FIAE INITIO 

0003 lOBYT 

FOOO lOPROfl 

FODB KEYBD 

FOCE KEYBDS 

0049 LCHARI 

0049 LCHARO 

OOOA LF 

FOBC LIST 

FllB LISTS! 

0004 L06DISK 

F204 HESSABE 

F169 HDDEHIN 

F149 HODENOUT 

FI 49 MODENST 

F154 NULLl 

F0F3 NULLO 

F156 NULLSTAT 

F14A NXH 

FIFD NXNHSB 

0081 PORTFF 

F147 PRINTER 

F09C PUNCH 

F0F3 PUNO 

0002 RDR 

F159 RDRIN 

0000 RDRS 

F144 RDRSTAT 

FOAD READER 

F04F READERSTAT 


FOBC RLCDISPATCH 

007F RUBOUT 

0040 SCRAT 

0042 SECTOR 

005E SIBNON 

0001 SOH 

FODC ST 

0009 TAB 

0040 TRACK 

0041 IRAKI 

FOCC TTY IN 

FOCD TTYOUT 

FOCC TTYSTAT 

FOCD TTYHTl 

0022 TUARTAC 

FlOl TUARTAIN 

0023 TUARTAH 

F124 TUARTAOUT 

0020 TUARTAS 

0021 TUARTA 

F0F7 TUARTASTAT FI IB TUARTAST 

0032 TUARTBC 

0080 TUARTBE 

FlOE TUARTBIN 

0033 TUARTBM 

F144 TUARTBOl 

FI 34 TUARTBOUT 

0030 TUARTBS 

0031 TUARTB 

FOFC TUARTBSTAT 0040 TUARTDA 

0001 TUARTIO 

0020 TUART 

005F UNDERLINE 

004C USEREXIT 

F400 VIDEO 

E800 VIONEM 

FIAE NAIT 

0000 NBOOT 

F003 NBOTE 

FIDC ZERO 
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0016 = 
0050 = 


E800 = 
FOOO = 
F400 = 


tmmt vio VIDEO driver ittum 


VIODVR.ASH 


BASED ON; 


VI. 00 

ACN 

8/19/79 

VI. 10 

3ER 

11/21/79 

VI. 11 

JER 

12/6/79 MOVED START OF LINE 



AND FIXED ESC SE8 TO USE ASCII 

VI. 12 

JER 

7/12/81 MOVED LINE START BACK 


AND HOVED TO lOPROH OFFSET 


VDR DRIVER FROR: 

PROCESSOR TECHNOLOGY CORP.’S 

SOLOS VERSION 1.3 - RELEASE 3/27/77 

FROR CP/R USERS GROUP VOLURE 15 

RODIFIED BY: 


ART HILLIS 

267 CASITAS BULEVAR 

LOS GATOS, CA 95030 


5 THIS DRIVER IS DESIGNED FOR A 24 X 80 DISPLAY, BUT 

; CAN BE RECONFIGURED BY CHANGING NtLINE AND L$LINE. 

■ 

NtLINE EBU 24 jNURBER OF LINGS ON SCREEN 

L4LINE EBU 80 ; LENGTH OF EACH LINE 

5 

i SYSTEH EQUATES 

5 

VI ONER EBU OEBOOH 

lOPROR EBU OFOOOH 

LOCATE EBU I0PR0H+0400H ; OFFSET FOR 7000=9200 

) 

: VIDEO DISPLAY ROUTINES 


THESE ROUTINES ALLOW FOR STANDARD VIDEO TERRINAL 
OPERATIONS. ON ENTRY, THE CHARACTER FOR OUTPUT IS IN 
REGISTER C AND ALL REGISTERS EXCEPT ‘A’ AND FLAGS ARE 
UNALTERED ON RETURN. 


tututtutttttunnuttutttuuuuttttttttuttutttittttt; 

i ORG LOCATE-IOOH 

; THIS.JS DEBU6GIN6 CODE TO RELOCATE THE VIO DRIVER FOR TEST USE. 

jtUTtttttUUtUttUttUtUtttttUtttUttUUttttUttUtttUM 

I BIOS EBU OBEOOH jRAR ADDRESS OF BIOS TURP VECTOR 


START: LXl D,200H 

LX I H.VIOUT 

LXI BjBOOH 
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;LOOP: 

LDAX 

D 



> 

MOV 

M,A 



J 

INX 

D 



\ 

INX 

H 



f 

OCX 

B 



• 

f 

MOV 

A,C 



1 

ORA 

B 



j 

JNZ 

LOOP-START+IOOH 


■ ■ 

LXI 

H,CQNIN 



1 • 

f ! 

SHLD 

BIOS+OAH 



• 

LXI 

H, VIOUT 



• 

J 

SHLD 

BIOS+ODH 



• 

5 

CALL 

PERSE 



> 

MVl 

A, OSH 

5 SELECT MODE 2 


5 

STA 

VI0MEM+7FFH 


■ • 

J ? 

MVI 

A,081H 



t ■ 

» i 

STA 

3 

5 SET PRINTER ON SERIAL PORT 


j 5 

MVI 

A,OBBH 



t ■ 

f ) 

OUT 

20H 

iSET BAUD RATE TO 1200 (DEFAULT NAS 300) 


• • 

} I 

JMP 

OOH 


F400 

s s 

0R6 

LOCATE 



J 

;C0N1N: 

CALL 

OCOIFH 

{CHECK KEYBOARD STATUS 


$ 

Jl 

CONIN 

{LOOP TIL CHAR AVAILABLE 


• 

> 

IN 

KDATA 

{READ KEYBOARD 


! 

CPI 

BOH 

{IS IT A CONTROL KEY? 



RC 


{NO: EXIT 


• 

f 

ANI 

2FH 

{YES; COMPRESS CODES TO 0-lF RANGE 


• 

cpi 

20H 

{STILL TOO BIG? 


5 

JC 

CONINl 

{NO; SKIP ADJUSTMENT 


5 

SOI 

lOH 

{YES: ADJUST TO NITHIN RANGE 


;C0NIN1: 

PUSH 

H {SAVE H0RKIN6 REGISTER 


5 

LXI 

H,ITAB 

{ADDRESS OF INPUT TRANSLATION TABLE 


■ 

j 

ADD 

L 

{INDEX BY COMPRESSED INPUT CHAR 


• 

> 

MOV 

L,A 



• 

JNC 

C0NIN2 

{JIF H IS O.K. 


• 

f 

INR 

H 

{OVRFLO: MUST BUMP H 


;C0NIN2: 

MOV 

A,M {A CONTAINS XLATED CHAR 


f 

POP 

H 

{RESTORE H/L 


5 

RET 



F400 E5 

VIOUT: 

PUSH 

H 

{SAVE MOST REGISTERS 

F401 D5 


PUSH 

D 


F402 « 


PUSH 

B 


F403 79 


MOV 

A,C 


F404 47 


MOV 

B,A 

{SAVE CHAR IN B 


TEST IF ESC SEQUENCE HAS BEEN STARTED 


F405 3AF3EF 

5 

LDA 

ESCFL 

{GET ESCAPE FLAG 

F408 B7 


ORA 

A 


F409 C23BF5 


JNZ 

ESCS 

{IF NON-ZERO GO PROCESS THE REST 


f < 

f 


F40C BO 

CHPCK: ORA 

B 

(IS IT A NULL 

F40D CA27F4 

JZ 

GOBK 

{DO A QUICK EXIT IF A NULL 
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F410 2194F5 


LXI 

H,TBL 

; POINT TO SPECIAL SHARACTER TABLE 

F413 CD31F4 


CALL 

TSRCH 

;G0 PROCESS 

F416 CDEEF4 

60BACK; 

CALL 

VDADD 

;GET SCREEN ADDRESS 

F419 7E 


NOV 

A,H 

;GET PRESENT CURSOR CHARACTER 

F4IA F680 


ORI 

80H 


F41C 77 


NOV 

H,A 

i CURSOR IS BACK ON 

F41D 2AF1EF 


LHLD 

SPEED- 1 

;GET DELAY SPEED 

F420 23 


INX 

H 

jHAKE SURE IT IS NON-ZERO 

F421 AF 


XRA 

A 

; DELAY HILL END HHEN K=0 

F422 2B 

TIHER; 

DCX 

H 

;TIHER DELAYS HERE 

F423 BC 


CHP 

H 

;DONE HITH DELAY YET 

F424 C222F4 


JNZ 

TIHER 

jKEEP DELAYING 

F427 Cl 

60BK: 

POP 

B 


F42B Dl 


POP 

D 

{RESTORE REGISTERS 

F429 El 


POP 

H 


F42A 79 


HOV 

A,C 

{SAVE CHAR 

F42B 32F5EF 


STA 

LOCHAR 

• 

F42E C9 


RET 


{EXIT FROH VDHQT 

F42F 23 

NEXT: 

INX 

H 


F430 23 

• 

f 

INX 

H 



THIS ROUTINE SEARCHES THROUGH A SINGLE CHARACTER 
TABLE FOR A HATCH TO THE CHARACTER IN ’B*. IF FOUND 
A DISPATCH IS HADE TO THE ADDRESS FOLLONIN6 THE HATCHED 



1 CHARACTER. 

IF NOT FOUND THE CHARACTER IS DISPLAYED ON 


i THE HONITOR. 



F431 7E 

TSRCH: HOV 

A,H 

{GET CHR FROH TABLE 

F432 B7 

ORA 

A 


F433 CA47F4 

JZ 

CHAR 

{ZERO IS THE LAST 

F436 B8 

CHP 

B 

{TEST THE CHR 

F437 23 

INX 

H 

{POINT FORHARD 

F438 C22FF4 

JNZ 

NEXT 


F43B E5 

PUSH 

H 

{FOUND ONE... SAVE ADDRESS 

F43C CD0BF5 

CALL 

CREH 

{REHOVE CURSOR 

F43F E3 

XTHL 


{GET DISPATCH ADDRESS TO HL 


THIS IS THE DISPATCH ROUTINE 

HL POINTS TO RETURN ADDRESS, BUT HL HILL BE 

RESTORED FROH STACK BEFORE DISPATCH 


F440 7E 

DISPT; 

HOV 

A,H 

{LOH ADDRESS BYTE 

F44I 23 


INX 

H 


F442 6i 


HOV 

H,H 

{HIGH ADDRESS BYTE 

F443 6F 


liov 

L,A 

{HL NON COHPLETE 

F444 E3 

DlSPi; 

XTHL 


{XCHG HL HITH HL ON STACK 

F445 7D 


HOV 

A,L 

{ALSO COPY HERE FOR SETS 

F44i C9 

! 

RET 


{AND GO OFF TO THE ROUTINE 


5 

! 

PUT CHARACTER TO SCREEN 

F447 78 

5 

CHAR: 

HOV 

A,B 

{GET CHARACTER 

F448 FE7F 


CPI 

7FH 

{ IS IT A DEL? 
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F44A Ca 

5 

R2 


;60 BACK IF SO 

F44B = 

5 

OCHAR; 

EOU 

t 

{ACTUALLY PUT CHAR TO SCREEN NON 

F44B CDEEF4 


CALL 

VDADD 

;6ET SCREEN ADDRESS 

F44E 70 


nov 

n,B 

{PUT CHR ON SCREEN 

F44F 3AF0EF 

j 

LDA 

NCHAR 

;6ET CHARACTER POSITION 

F452 FE4F 


CPI 

LtLINE-1 

{END OF LINE? 

F454 DA79F4 


JC 

OK 


F457 3AF1EF 


LDA 

LINE 


F45A FE17 


CPI 

N$LINE-1 

{END OF SCREEN? 

F45C C279F4 


JNZ 

OK 



1 

i END OF SCREEN 

...ROLL UP ONE LINE 

F45F AF 

) 

SCROLL: 

XRA 

A 


F460 32F0EF 


STA 

NCHAR 

{BACK TO FIRST CHAR POSITION 

F4i3 1150E8 

SROL: 

LX I 

D,VIONEH+LiLINE j ADDRESS OF SECOND LINE 

F466 2100E8 


LX I 

H.VIOHEH 

{ADDRESS OF FIRST LINE 

F469 C5 


PUSH 

6 

{SAVE DATA CHAR 

F46A 018007 


LXl 

B,H«L1NE«L$LINE ; NUMBER OF CHARS TO HOVE 

F4BD lA 

SROLl: 

LDAX 

D 

{HOV A CHAR 

F46E 77 


NOV 

H,A 


F46F 13 


INX 

D 

;BUHP POINTERS 

F470 23 


INX 

H 


F471 OB 


DCX 

6 


F472 79 


HOV 

A,C 


F473 BO 


ORA 

B 


F474 C26DF4 


JN2 

SROLl 


F477 Cl 


POP 

B 


F47B C9 


RET 




INCREMENT LINE COUNTER IF NECESSARY 


F479 3AF0EF 

OK: LDA 

NCHAR 

{BET CHR POSITION 

F47C 3C 

INR 

A 


F47D FE50 

CPI 

L$LINE 

{CHECK FOR END OF LINE 

F47F 32F0EF 

STA 

NCHAR 


F482 CO 

RN2 


{DIDN’T HIT END OF LINE, OK 

F4B3 AF 

XRA 

A 

{RESET CHAR POINTER 

F484 32F0EF 

STA 

NCHAR 


F487 = 

PDONN: E8U 

4 

{CURSOR DONN ONE LINE HERE 

F487 3AF.1EF 

LDA 

LINE 

{GET THE LINE COUNT 

F48A 3C 

INR 

A 


F48B FE18 

CURSC: CPI 

N$L1NE 

{STORE THE NEN 

F48D 32F1EF 

CUR: ,,-SfA 

LINE 

{STORE THE NEW 

F490 CO 

RNZ 


{EXIT, UNLESS SCROLL NEEDED 

F491 3D 

DCR 

A 

{LEAVE LINE COUNTER AS HAS 

F492 32F1EF 

STA 

LINE 


F495 C9 

RET 


{«< MAY NEED TO CALL SCROLL. »> 


ERASE SCREEN 


F49i 2100E8 PERSE: LIl 
F499 3iA0 NVI 


H,V10n£« 


i POINT TO SCREEN 
iTHIS IS THE CURSOR 
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F49B 

23 


INX 

F49C 

C5 


PUSH 

F49D 

0ICF07 


LXl 

F4A0 

= 

ERASl; 

E8U 

F4A0 

3020 


HVl 

F4A2 

23 


INX 

F4A3 

OB 


DCX 

F4A4 

79 


NOV 

F4A5 

BO 


ORA 

F4A6 

C2A0F4 


JNZ 

F4A9 

Cl 


POP 

F4AA 

3EOO 

i 

PHONE: 

HVI 

F4AC 

32F1EF 


STA 

F4AF 

32F0EF 


STA 

F4B2 

C9 

ERA53: 

• 

» 

RET 

F4B3 

CDEEF4 

CLINE: 

CALL 

F4B6 

3AF0EF 


LDA 

F4B9 

FE50 

CLINl: 

CPI 

F4BB 

DO 


RNC 

F4BC 

3620 


NVI 

F4BE 

23 


INX 

F4BF 

3C 


INR 

F4C0 

C3B9F4 


JHP 


H ;BU«P 1ST 

B ;SAVE CHAR 

B,N$LINEtL$LINE+L$LINE-l ; SCREEN LENGTH - CURSOR 

I ; LOOPS HERE TO ERASE SCREEN 

n,’ ’ {BLANK IT OUT 

H {NEXT 

B {DECREHENT COUNT 

A,C {END OF SCREEN? 

6 

ERASl ;N0; KEEP BLANKING 

B {RESTORE DATA CHAR 

A,0 {RESET CURSOR--CARRY=ERASE, ELSE HONE 

LINE {ZERO LINE 

NCHAR {LEFT SIDE OF SCREEN 


VDADD {GET CURRENT SCREEN ADDRESS 
NCHAR {CURRENT CURSOR POSITION 
L$LINE {NO NORE THAN L$LINE-1 
{ALL DONE 

H,’ ’ {ALL SPACED OUT 

H 

A 

CLINl {LOOP TO END OF LINE 


ROUTINE TO HOVE THE CURSOR UP ONE LINE 


F4C3 3AF1EF 

PUP: 

LDA 

LINE {GET LINE COUNT 

F4C6 3D 


DCR 

A 

F4C7 F2CCF4 


JP 

PUPl {HER6E TO HANDLE CURSOR 

F4CA 3E17 


HVI 

A,N$LINE-1 

F4CC 32F1EF 

PUPl: 

STA 

LINE 

F4CF C9 


RET 



5 

{ HOVE 

CURSOR 

LEFT ONE POSITION 

F4D0 3AF0EF ' 

S 

PLEFT: 

LDA 

NCHAR 

F4D3 3D 


DCR 

A 

F4D4 = 

PCUR; 

ECU 

$ {CURSOR ON SANE LINE 

F4D4 32F0EF 


STA 

NCHAR {UPDATED CURSOR 

F4D7 F2DCF4 


JP 

PLEFTl {EXIT UNLESS WRAP 

F4DA 3E4F 


HVI 

A,L$LINE-1 {LET IT NRAP 

F4DC 32F0EF 

PLEFTl: 

STA 

NCHAR 

F4DF C9 


RET 



i CURSOR RIGHT 

ONE POSITION 

F4E0 3AF0EF 

PRIT; 

LDA 

NCHAR 

F4E3 3C 


INR 

A 

F4E4 FE50 


CPI 

LILINE 

F4E6 C2EAF4 


JNZ 

PRIT2 

F4E9 AF 

PRITI: 

XRA 

A 

F4EA 32F0EF 

PR1T2: 

STA 

NCHAR 

F4ED C9 


RET 
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ROUTINE TO CALCULATE SCREEN ADDRESS 
ENTRY AT: RETURNS: 


VDAOD CURRENT SCREEN ADDRESS 

VDAD2 ADDRESS OF CURRENT LINE, CHAR “C’ 

VDAD LINE 'A*, CHARACTER POSITION ’C’ 


F4EE 3AF0EF 

VDADD: 

LDA 

NCHAR 

5 GET CHARACTER POSITION 

F4F1 4F 


MOV 

C,A 

i’C’ KEEPS IT 

F4F2 3AF1EF 

VDAD2; 

LDA 

LINE 

iLINE POSITION 

F4F5 6F 

VDAD; 

MOV 

L,A 

)INTO ’L’ 

F4F6 87 


ADD 

A 

; TIMES THO 

F4F7 87 


ADD 

A 

; TIMES FOUR 

F4F8 85 


ADD 

L 

iTIMES FIVE 

F4F9 OF 


RRC 


jSNAP NIBBLES 

F4FA OF 


RRC 



F4FB OF 


RRC 



F4FC OF 


RRC 



F4FD 6F 


MOV 

L,A 

;L HAS IT 

F4FE E60F 


ANI 

OFH 

jLON ORDER DIGIT OF H 

F500 C6E8 


ADI 

VIOMEM SHR 8 jHIGH SCREEN OFFSET 

F502 67 


MOV 

H,A 

;NON H IS DONE 

F503 7D 


MOV 

A,L 

jTNIST L’S ARM 

F504 E6F0 


ANI 

OFOH 


F506 81 


ADD 

C 


F507 6F 


MOV 

L,A 


F508 DO 


RNC 



F509 24 


INR 

H 


F50A C9 


RET 


:H 6 L ARE NON PERVERTED 


ROUTINE TO REMOVE CURSOR 


F50B CDEEF4 

» 

CREM: 

CALL 

VDADD 

5 GET CURRENT SCREEN ADDRESS 

F50E 7E ' 


MOV 

A,H 


F50F E67F 


ANI 

7FH 

; STRIP OFF THE CURSOR 

F511 77 


MOV 

M.A 


F512 C9 


RET 




ROUTINE TO BACKSPACE 


F513 CDD0F4 

PBACK: 

CALL 

PLEFT 


F516 CDEEF4 


CALL 

VDADD 

;6ET SCREEN ADDRESS 

F519 3630 


MVI 

M,’ ’ 

iPUT A BLANK THERE 

F51B C9 


RET 




ROUTINE TO PROCESS A CARRIAGE RETURN 


F51C 3AF5EF PCR: LDA LOCHAR 
F51F B8 CHP B 

F520 C8 RZ 

CALL CLINE 

CALL PRITl jAND STQRE THE NEN VALUE 

CALL PRIT !«0VE START OF LINE OVER FOR DUMB VIDEO 

CALL PRIT 

CALL PRIT 


F521 CDE9F4 



FILE: 22V10 PRN 


PABE 007 


5 CALL PRIT 

F524 C9 RET 

i ROUTINE TO PROCESS A LINEFEED 


F525 3AF1EF PLF; 

LDA 

LINE 

;6ET LINE COUNT 

F528 3C 

INR 

A 


F529 FE18 

CPI 

N$LINE 

;END OF SCREEN? 

F52B C28DF4 

JNZ 

CUR 

;NO--NO HEED TO SCROLL 

F52E C363F4 

J«P 

SROL 

iYES--THEN SCROLL 


ROUTINE TO PROCESS ERASE TO END OF LINE 


F531 CDB3F4 

PEEOL: 

CALL 

CLINE 

iERASE TO END OF LINE 

F534 C9 


RET 


AND EHT 


\ SET ESCAPE PROCESS FLAG 

F535 3EFF 

PESC: 

HVI 

A,i-1) 

AND OFFH 

F537 32F3EF 


STA 

ESCFL 

;SET FLAB 

F53A C9 

« 

RET 




PROCESS ESCAPE SEQUENCE 


F53B CD0BF5 

ESCB: 

CALL 

CREH 

; REHOVE CURSOR 

F53E CD44F5 


CALL 

ESCSP 

; PROCESS THE NEXT PART OF SEQUENCE 

F541 C316F4 


JHP 

GOBACK 


F544 3AF3EF 

i 

ESCSP: 

LDA 

ESCFL 

;6ET ESCAPE FLAG 

F547 FEFF 


CPI 

I-l) AND OFFH iTEST FLAB 

F549 CA75F5 


31 

SECOND 



PROCESS THIRD CHR OF ESC SEQUENCE 


F54C 21F3EF 

' UI 

H, ESCFL 

F54F 3i00 

HVI 

H,0 ;N0 HORE PARTS TO THE SEQUENCE 

F551 FE32 

CPI 

’2’ 

F553 DA64F5 

JC 

SETX ;SET X IF IS ONE 

F556 CABAFS 

JZ 

SETY iSET Y IF IS TNO 

F559 FE3B 

CPI 

’8’ 

F55B CA70F5 

JZ 

STSPD ;SET NEW DISPLAY SPEED IF ‘S' 

F55E FE39 

CPI 

’9’ 

F560 DA4BF4 

JC 

OCHAR ;PUT IT ON THE SCREEN 

F563 CO 

RNZ 



I TAB ABSOLUTE TO VALUE IN REG B 

F564 78 

SETX; .-HOV 

A,B ;GET CHARACTER 

F565 D620 

SUI 

32 

F567 C3DCF4 

JHP 

PLEFTl 


SET CURSOR TO LINE ’B" 


F56A 78 

1 

SETY: 

HOV 

A, 6 

F56B D620 


SU! 

32 

F56D C3CCF4 



PUPl 


i 
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i SET DISPLAY 

SPEED 


F570 78 

STSPD: NOV 

A,B 

iHERE TO SET DISPLAY SPEED 

F571 32F2EF 

DISPD: STA 

SPEED 

;SET DISPLAY SPEED 

F574 C9 

RET 

• 

f 




• 

i PROCESS SECOND CHR 

OF ESC SEOUENCE 

F575 78 

SECOND: NOV 

A,B 

;GET NHICH (RECOVER CHR?) 

F576 FE33 

CPI 

’3’ 


F578 CA8BF5 

GZ 

CURET 

{RETURN CURSOR PARAMETERS 

F57B FE34 

CPI 

M’ 


F57D C287F5 

GNZ 

ARET2 



ESC <4> RETURN ABSOLUTE SCREEN ADDRESS 


F580 44 

ARET; MOV 

6,N 


F581 4D 

NOV 

C,L 

{PRESENT SCREEN ADDRESS TO BC FOR RETURN 

F5B2 El 

ARETl: POP 

H 

{RETURN ADDRESS 

F5B3 DI 

POP 

D 

{OLD 6 

F584 C5 

PUSH 

B 


F585 E5 

PUSH 

H 


F586 AF 

XRA 

A 


F587 32F3EF 

ARET2! STA 

ESCFL 


F58A C9 

RET 




ESC <3> RETURN PRESENT SCREEN PARAMETERS IN 'BC 


F58B 21F0EF 

CURET: LX I 

H,NCHAR 


F58E 46 

MOV 

B.M { 

CHARACTER POSITION 

F58F 23 

INX 

H 


F590 4E 

MOV 

C,H { 

LINE POSITION 

F591 C382F5 

JNP 

i 

ARETl 



i 

j 

{ DISPLAY DRIVER COMMAND TABLE 


1 

{ THIS TABLE DEFINES THE CHARACTERS FOR SPECIAL 


{ PROCESSING. 

IF THE CHARACTER IS NOT IN THE TABLE 


{ GOES TO THE SCREEN. 


F594 OB. 

TBL: OB 

CLEAR-80H 

{CLEAR SCREEN 

F595 96F4 

DN 

PERSE 


F597 17 

DB 

UP-80H 

{UP CURSOR 

F598 C3F4 

-DN 

PUP 


F59A lA 

DB 

D0HN-80H 

{DOHN CURSOR 

F59B 87F4 

DH 

PDOHN 


F59D 01 

DB 

LEFT-80H 

(LEFT CURSOR 

F59E D0F4 

DH 

PLEFT 


F5A0 13 

DB 

RIGHT-BOH 

{RIGHT CURSOR 

F5A1 EQF4 

DH 

PRIT 


F5A3 OE 

DB 

H0ME-80H 

{HOME CURSOR 

F5A4 AAF4 

DH 

PHONE 


F5A6 OD 

DB 

CR 

{CARRIAGE RETURN 



FILE: Z2VI0 

PRN 


PAGE 009 • 

F5A7 1CF5 


OH 

PCR 


F5A9 OA 


06 

LF 

iLINE FEED 

F5AA 25F5 


OH 

PLF 


F5AC 06 


06 

EEOL 

{ERASE TO END OF LINE 

F5AD 31F5 


OH 

PEEOL 


F5AF 5F 


06 

BACKS 

{BACKSPACE 

F5B0 13F5 


OH 

PBADK 


F5B2 IB 


06 

ESC 

{ESCAPE KEY 

F5B3 35F5 


OH 

PESC 


F5B5 00 

■ 

J 

OB 

0 

{END OF TABLE 


f 

• 

f 

• 

J 


VIO EQUATES 


■ 

J 

■ 

f 

VIO PARAHETERS 



1 

• 

J 

KEYBOARD SPECIAL KEY ASSIGNMENTS 

009A = 

BONN 

EOU 

9AH 


0097 = 

UP 

EQU 

97H 


It 

CO 

o 

o 

LEFT 

EDU 

81H 


0093 = 

RIGHT 

EQU 

93H 


0080 = 

nooE 

EQU 

BOH 


008B = 

CLEAR 

EQU 

8BH 


008E = 

HOHE 

EQU 

08EH 


005F = 

BACKS 

EQU 

5FH 

{BACKSPACE 

0006 = 

EEOL 

EQU 

06 


OOOA = 

LF 

EQU 

10 


GOOD = 

CR 

EQU 

13 


0020 = 

BLANK 

>fQU 

> > 


0020 = 

SPACE 

EQU 

BLANK 


0018 = 

CX 

EQU 

’I’-40H 


OOIB = 

ESC 

EQU 

IBH 



5 

5 

PORT ASSIGNMENTS 

OOFA = 

START 

EQU 

OFAH 

{STATUS PORT GENERAL 

00F8 = 

SERST 

EQU 

0F8H 

{SERIAL STATUS PORT 

O0F9 = 

■’ SDATA 

EQU 

0F9H 

{SERIAL DATA 

OOFA = 

TAPPT 

EQU 

OFAH 

{TAPE STATUS PORT 

OOFB = 

TDATA 

EQU 

OFBH 

{TAPE DATA 

OOFC = 

KDATA 

EQU 

OFCH 

{KEYBOARD DATA 

OOFD = 

PDATA 

EQU 

OFDH 

{PARALLEL DATA 

OOFE =. 

DSTAT 

EQU 

OFEH 

{VDM DISPLAY PARAMETER PORT 

OOFF = 

SENSE 

i 

EQU 

OFFH 

{SENSE SNITCHES 


« 

• 

f 

BIT 

ASSISNNENT MASKS 

0001 = 

SCD 

EQU 

1 

{SERIAL CARRIER DETECT 

0002 = 

SDSR 

EQU 

2 

{SERIAL DATA SET READY 

0004 = 

SPE 

EQU 

4 

{SERIAL PARITY ERROR 

0008 = 

SFE 

EQU 

8 

{SERIAL FRAMING ERROR 

0010 = 

SOE 

EQU 

16 

{SERIAL OVERRUN ERROR 

0020 = 

SCTS 

EQU 

32 

{SERIAL CLEAR TO SEND 

0040 = 

SDR 

EQU 

64 

{SERIAL DATA READY 


Ciit d - /a; 

-Fro -I <4j tFcFL 

- d^fi- 
~ FZ 

' fF^OO(^ C U(c‘S.o'<. 

- 7f"s r 

~ <^SCaKJ'0 

C>r{(€:. ^ 

of'i S -~ t^Ti>*p,o cTui/p , 

CP/ ^( - /^T A(43 $cte". ^poe. 

(Fc<£is 

/ /O f( 

6 ^€5 - r/== # 2. oJ^^ /JZ sscpc. 

jiEsr f" 

(^(T TO ^c$ 

- (2s^ C '^ 

- C(rfsc^ iF ^ I X>1 ^CPc 
A-'d' 

, ^osr /S TWasd Ct/<41 

^ 2L d — 3?^ "Sisv >< (^^) 

21 -IS- 55^7 ^ 

C F / Z 5‘g^7 Sf&^ CiB^ 

CP f 9 C^ SCi£>^^HO 
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OOBO = 

STBE 

EQU 

128 

■.SERIAL TRANBHITTER BUFFER- EHPTY 

0001 = 

KDR 

E6U 

1 

i KEYBOARD DATA READY 

0002 = 

PDR 

EQU 

2 

i PARALLEL DATA READY 

0004 = 

PTDR 

EQU 

4 

jPARALLEL DEVICE READY 

0008 = 

TFE 

EQU 

8 

ITAPE FRAMING ERROR 

0010 = 

TOE 

EQU 

16 

iTAPE OVERRUN ERROR 

0040 = 

TDR 

EQU 

64 

;TAPE DATA READY 

0080 = 

TTBE 

5 

• 

J 

EQU 

128 

5 TAPE TRANSMITTER BUFFER EMPTY 


« 

J 

■ 

f 

• 

f 

« 

f 


VIO GLOBAL AREA 

EFFO 

f 

0R6 

VI0HEH+07F0H 


$tm PARAHETERS STORED IN RAH ttUI 


EFFO 01 

NCKAR 

DB 

1 

iCURRENT CHARACTER POSITION 

EFFl 01 

LINE 

DB 

1 

j CURRENT LINE POSITION 

EFF2 01 

SPEED 

DB 

1 

! SPEED CONTROL BYTE 

EFF3 01 

ESCFL 

DB 

1 • 

J ESCAPE FLAB CONTROL BYTE 

EFF4 01 

NUCNT 

DB 

1 

5 NUMBER OF NULLS AFTER CRLF 

EFF5 01 

LOCHAR 

DB 

1 

;LAST OUTPUT CHAR 


INPUT TRANSLATION TABLE 



;ITAB; DB 

OOH, 13H, lAH, lOK, lAH, lAH, iAH,03H 


; DB 

1AH,1AH,IAH,0BH,0CH,1AH,0EH, 

lAH 


; DB 

13H,05H,18H, 

1AH,03H,12H,06H, 

i9H- 


; DB 

! ! 

0CH,15H,16H 

17H,1AH,07H,04H,OEH 

EFF6 

• t 

f 1 

END 




F582 ARETl 

F587 ARET2 

F580 ARET 

003F BACKS 

0020 BLANK 

F447 CHAR 

F40C CHPCK 

OOBB CLEAR 

F4B9 CLINl 

F4B3 CLINE 

F50B CREM 

■’ OOOD CR 

F58B CURET 

F48B CURSC 

F48D CUR 

0018 CT 

F444 DISPl 

F571 DISPD 

F440 DISPT 

009A DOWN 

OOFE DSTAT 

0006 EEOL 

F4A0 ERASl 

F4B2 ERAS3 

EFF3 ESCFL 

00 IB ESC 

F53B ESCB 

F544 ESCSP 

F416 G06ACK 

F427 GOBK 

008E HOME 

FOOO lOPROM 

OOFC KDATA 

0001 KDR 

0081 LEFT 

OOOA LF , 

EFFl LINE 

0050 LLINE 

F400 LOCATE 

EFF5 LOCHAR 

0080 MODE 

EFFO NCHAR 

F42F NEXT 

0018 NLINE 

EFF4 NUCNT 

F44B OCHAR 

F479 OK 

F513 PBACK 

F51C PCR 

F4D4 PCUR 

OOFD PDATA 

F4B7 PDONN 

0002 PDR 

F531 PEEOL 

F496 PERSE 

F535 PESC 

F4AA PHOME 

F4D0 PLEFT 

F4DC PLEFT 1 

F525 PLF 

F4E0 PRIT 

F4E9 PRITl 

F4EA PRIT2 

F4C3 PUP 

F4CC PUPl 

0004 PXDR 

0093 RIGHT 

0001 SCD 

F45F SCROLL 

0020 SCTS 

00F9 SDATA 

0040 SDR 

0002 SDSR 

F575 SECOND 

OOFF SENSE 

OOFB SERST 

F564 SETX 

F56A SETY 

0008 SFE 

0010 SOE 

0020 SPACE 

EFF2 SPEED 

0004 SPE 

F463 SROL 

F46D SROLl 

OOFA START 

OOBO STBE 

F570 STSPD 

OOFA TAPPT 

F594 TBL 

OOFB TDATA 

0040 TDR 

0008 TFE 

F422 TIMER 

0010 TOE 

F431 TSRCH 

0080 TTBE 

0097 UP 

F4F2 VDAD2 

F4F5 VDAD 



FILE: Z2V10 PRN 


PA6E Oil 


F«E VDADD 


E800 VIOI1EN F400 VIOUT 



FILE: C2PR0H PRN 


PARE 001 


iPROfl ROUTINES FOR MICROHATION DOUBLER, VERSION C.2 


5 THE C.l VERSION HAS HOPS IN SYNC ROUTINE TO ALLOH MORE FREQUENT REFRESH 
5 OF DYNAMIC RAMS 

jIT ALSO SETS UP THE SIDE BIT EARLIER TO MEET SETUP TIME FOR Y-E DATA DRIVES 


THIS VERSION HAS THE FOLLONINB CHANGES FROM C.l: 
iHAS FIX FOR C.l BUB IN SETTING UP DENSITY 
DISABLES INTERRUPTS AFTER FINDING CORRECT SECTOR 
iHAS SLOWER STEP AND SETTLE TIMES 



• 

J 

FEB 11, 1980 


F800 

BASE 

ORG 

0F800H 


FCOO = 

BUFF 

E 8 U 

BABE+400H 

{SCRATCHPAD 


START OF HARDWARE PORT DEFINITIONS 


FEOO = 

i 

WRCONT 

EQU 

BASE+600H 

FEOl = 

WRCLK 

E 8 U 

WRCONT+l 

FE02 = 

WRUART 

EQU 

WRCONT+2 

FE04 = 

WRMRKCRC 

EQU 

HRCONT+4 

FE05 = 

WRMRK 

EQU 

HRCONT+5 

FE06 = 

WRDATA 

EQU 

WRCONT +6 

FE07 = 

WRCRC 

EQU 

WRCONT+7 

FEOO = 

RDSTAT 

EQU 

WRCONT 

FE02 = 

RDUART 

EQU 

WRCONT+2 

FE04 = 

RDMRKCRC 

EQU 

HRCONT+4 

FE05 = 

RDMARK 

EQU 

WRCONT+5 

FE06 = 

RDDATA 

EQU 

HRCONT +6 

FE07 = 

SYNCPORT 

EQU 

HRCONT+7 


START OF RAM VARIABLE DEFINITIONS 


FCOO = 

ERRORBYTE 

EQU 

BUFF 

;N0. OF ERRORS DURING RETRIES 

FCOl = 

DENBYTE 

EQU 

BUFF+1 

;0 FOR SINGLE DENSITY 
{4 FOR DOUBLE DENSITY 

FC02 = 

READHRITE 

EQU 

BUFF+2 

;0 FOR READ 
;10H FOR WRITE 

FC03 = 

CONTROLBYTE 

EQU 

BUFF+3 

{RAM IMAGE OF RDSTAT OR WRCONT 

FC04 = 

TRACK 

EQU 

BUFF+4 

« 

FC05 = 

PRESDISK 

EQU 

BUFF+5 


FC06 = 

LOBINTAB 

EQU 

BUFF +6 {FOR EACH DRIVE 

jO IF DRIVE HAS NOT BEEN LOBBED IN 



FILE: C2PR0H 


PRN PARE 002 

;55H IF DRIVE HAS BEEN LOBBED IN 


FCOA = 

SECTOR 

EQU 

BUFF+OAH 


FCOB = 

DHA 

EQU 

BUFF+OBH 

;DHA ADDRESS 

FOOD = 

DISK. 

EDO 

BUFF+ODH 


FCOE = 

TESTNEXT 

EQU 

BUFF+OEH 

;55H IF NANT TO TEST DENSITY 
i OF NEXT TRACK 

FCOF = 

TNOSIDE 

EQU 

BUFF+OFH 


FCIO = 

STEPTINE 

EQU 

BUFF+lOH 


FCIl = 

AB0VE43 

EQU 

BUFF+llH 

;10H IF (TRACK)<44D 
; 50H OTHERWISE 

FC12 = 

TRACKTAB 

EQU 

BUFF+12H 


FC16 = 

DENNAP 

EQU 

BUFF+i6H 

iSAHE CONVENTION AS DENBYTE 

FC20 = 

TRY! 

EQU 

BUFF+20H 


FC21 = 

RETRYCOUNT 

EQU 

BUFF+21H 


FC22 = 

CLIRRDRIVE 

EQU 

BUFF+22H 


FC23 = 

TESTNAX 

EQU 

BUFF+23H 

;N0. RETRIES FOR DENSITY TEST 

OOOF = 

STEPSETTLE 

EQU 

15 


0028 = 

HEADSETTLE 

EQU 

40 


FC40 = 

STACK 

EQU 

BUFF+64D 



;BECIN HITH JUHP TABLE 



F800 C3D3FB 

JHP 

COLDBOOT 


F803 C397FB 

JHP 

HOHE 



F806 C3iEFB 

JHP 

SELDSK 



FB09 C3AEFA 

JHP 

BETTRK 



F80C C3A9FA 

JHP 

SETSEC 



FeOF C3A3FA 

JHP 

SETDHA 



FB12 C329FB 

JHP 

READ 



F815 C32DF8 

JHP 

NRITE 



FBIB C3B9FA 

JHP 

SKEW 



F81B C303FB 

JHP 

SETDEN 




PA6E 






NRITEPROTECT; 



FBIE CDBEFB 

- 

CALL 

DISKREADYl ; LOADS HEAD 





; WAITS TILL DISK READY 





; RETURNS IRDSTAT) IN B 

FB21 78 


HOV 

A,B 


F822 E604 


ANI 

04 

;WRITEPRT BIT FROH DRIVE 

F824 CO . 


RNZ 



F825 3A05FE 


LDA 

RDHARK 

; RESETS HEAD LOAD COUNTER 

FB28 C9 


RET 




READ: 



; ENTRY POINT FOR READ ROUTINE 

F829 AF 


m 

A 

;(READHRITE)^ 00 FOR READ 

F82A C32FF8 


JHP 

BO 



WRITE: 



;ENTRY POINT FOR WRITE ROUTINE 

F82D 3E10 


HVI 

A,10H 

;(READWRITE)=10H FOR WRITE 



FILE: C2P.R0H 

PRN 


PAGE 003 


FB2F 3202FC 

GO: 

STA 

READNRITE 


F832 2A01FC 


LHLD 

DENBYTE 

i(L)=(DENBYTE) 

FB35 3A03FC 


LDA 

CONTROLBYTE 


F838 2F 


CHA 



F839 EiFB 


ANI 

OFBH 

iMASK OUT BIT 2 (SD/-DD = 0) 

F83B B5 


ORA 

L 


F83C 2F 


CHA 



F83D 3200FE 


STA 

KRCONT 


F840 CDBEFB 


CALL 

DISKREADYl 


F843 3A0AFC 


LDA 

SECTOR 


F846 4F 


MOV 

C,A 

i(C)=(SECTOR) 

F847 3A04FC 


LDA 

TRACK 


F84A 47 


MOV 

B,A 

i(B)=(TRACK) 

FB4B AF 


XRA 

A 


F84C 3200FC 


STA 

ERRORBYTE 

; (ERRORBYTE )= 0 

F84F 7D 


MOV 

A,L 


F850 B7 


ORA 

A 

;TEST FOR SINGLE DENSITY 

FB51 CA70F9 


JZ 

SD 



5 


DOUBLE DENSITY READ OR NRITE 


READDD: 




F854 CD5FF9 

BLOOP; 

CALL 

SYNC 

;SYNC ON HEADER 
; FOUND HEADER 

F857 360A 


MVI 

M,OAH 

;FIND DA CLOCK FOR ID MARK 

F859 lA 


LDAX 

D 

iSYNC NITH -EON 

F85A 3A04FE 


LDA 

RDMRKCRC 


F85D FEAl 


CPI 

OAIH 

;DATA FOR ID MARK 

F85F C254F8 


JNZ 

BLOOP 

; FOUND ID ADDRESS MARK 

F862 lA 


LDAX 

D 

i 

;BYTE AFTER ID MARK SHOULD BE FE 

F863 FEFE - 


CPI 

OFEH 


F865 C254F8 


JNZ 

BLOOP 

; FOUND FE BYTE 

F868 lA 


LDAX 

D 

i 

i TRACK BYTE FROM DISK 

F869 B8 


CMP 

B 

;(B)=(TRACK) 

FB6A C2F2F8 


JNZ 

TERRORl 

; TRACK ERROR 

F86D lA 


LDAX 

D 

{SECTOR BYTE FROM DISK 

F86E 89 


CMP 

C 

;(C)= (SECTOR) 

F86F C254F8 


JNZ 

BLOOP 

;NR0N6 SECTOR. TRY AGAIN 

F872 lA 


LDAX 

D 


F873 F3 


Di 


{DISABLE INTERRUPTS BEFORE CHECKING ID CRC 

F874 lA 


LDAX 

D 


F875 lA 


LDAX 

D 

{READ 1 BYTE PAST ID CRC 

FB7& 3A00FE 


LDA 

RDSTAT 


FB79 IF 


RAR 


{CHECK ID CRC 

F87A lA 


LDAX 

D 


F87B DADDF8 


JC , 

ERROR 

{ ID CRC ERROR 

F87E lA 


LDAX 

D 


F87F 3A11FC 


LDA 

AB0VE43 




FILE; C2PR0M 

PRN 


PA 6 E 004 


F882 47 


KOV 

B,A 


FB83 lA 


LDAX 

D 


F884 70 


MOV 

H,B 

;(HRCLK)=(AB0VE43) 

FB85 lA 


LDAX 

D 

5 NON 5 BYTES INTO BAP 

F 886 0609 


HVI 

B,9 


F 888 lA 

6L00P: 

LDAX 

D 


F889 05 


DCR 

B 


F 88 A C288FB 


JNZ 

6L00P 


F 88 D iA 


LDAX 

D 

5 NON 15 BYTES INTO BAP 

F 8 BE 3A02FC 


LDA 

READNRITE 


F891 87 


ORA 

A 

i CHECK FOR WRITE 

F892 lA 


LDAX 

D 

;16 BYTES INTO BAP 

F893 C203F9 


JNZ 

NRITEDD 






•DOUBLE DENSITY READ 

FB96 lA 


LDAX 

D 

» 

F897 lA 


LDAX 

D 


F89B 36FF 


HVI 

M,0FFH 


F89A lA 


LDAX 

D 


FB9B lA 


LDAX 

D 


F89C lA 


LDAX 

D 

521 BYTES INTO BAP 

F89D 13 


INX 

D 

5 (D)=SYNCPORT 

F89E lA 


LDAX 

D 

5 SYNC ON FF CLOCK PATTERN 

FB9F 18 


DCX 

D 

5 (D)=RDDATA 

F8A0 360A 


HVI 

M,0AH 

5lNRCLK)=0A 

5 CLOCK PATTERN FOR DATA HARK 

F8A2 2A0BFC 


LHLD 

DMA 


F8A5 lA 


LDAX 

D 

iSYNC HITH -EOH 

F 8 A 6 3A04FE 


LDA 

RDHRKCRC 

5 BET DATA PATTERN FOR DATA MARK 

F8A9 FEAl 


CPI 

OAIH 


F 8 AB C2DDFB 


JNZ 

ERROR - 

5 MISSINB DATA MARK 





5 FOUND DATA MARK 

5 START TRANSFERRINS DATA 

F 8 AE lA 

RXFER; 

LDAX 

D 

5 

F 8 AF 77 


HOV 

H,A 


F8B0 23 


INX 

N 


F8B1 42 


MOV 

B,D 


F8B2 lA 


LDAX 

D 


F8B3 77 


MOV 

M,A 


F8B4 23 


INX 

H 


F8B5 4B , 


MOV 

C,E 


F 8 B 6 OA 


LDAX 

6 


F8B7 77 


MOV 

M,A 


F 8 B 8 23 


INX 

H 


F8B9 lEEl 


MVl 

E,0E1H 


F 8 BB OA 


LDAX 

B 


F 8 BC 77 


MOV 

M,A 

;4 BYTES OF DATA 

FBBD 23 


INX 

H 


F 8 BE OA 


LDAX 

6 


F 8 BF 77 

RLOOP: 

MOV 

M,A 


F8C0 OA 


LDAX 

B 


F8C1 1C 


I NR 

E 




FILE: C2PR0N PRN 


PAGE 005 


FBC2 23 

INI 

H 


F8C3 77 

NOV 

N,A 


F8C4 OA 

LDAI 

B 


F8C5 23 

INI 

H 


F8C6 77 

NOV 

H,A 


F8C7 OA 

LDAI 

B 


FBC8 23 

INI 

N 


F8C9 77 

NOV 

N,A 


F8CA 23 

INI 

H 


F8CB OA 

LDAI 

B 


F8CC C2BFF8 

3NZ 

RLOOP 

5 HAVE TRANSFERRED 128 BYTES 
iAND HAVE READ 129TH BYTE 

F8CF OA 

LDAI 

B 


FBDO OA 

LDAI 

6 

;READ I BYTE PAST CRC 

F8D1 3A00FE 

LDA 

RDSTAT 


F8D4 IF 

RAR 


5 CHECK DATA CRC 

FBD5 DADDF8 

JC 

ERROR 

;DATA CRC ERROR 


SUCCESSFUL SECTOR READ 


F8D8 AF 

IRA 

i 

A 

{RETURN 00 IN ACCUNULATOR 

F8D9 3201FE 

STA 

HRCLK 


F8DC C9 

RET 




ERROR: 

; ARRIVE HERE ON ANY OF F0LL0HIN6 CONDITIONS 
; 30H TRACK ERRORS 

; ID CRC ERROR 

; niSSINS DATA NARK 

; DATA CRC ERROR 


F8DD 3EEF 

HVI A,OEFH 

{RETURN EFH IN ACC 

F8DF B7 

ORA A ■ 

{ (UNSUCCESSFUL READ) 

F8E0 3201FE 

STA HRCLK 


F8E3 C9 

RET 



TERROR: 



{ARRIVE HERE ON TRACK ERROR 

IN SINGLE DENSITY 

F8E4 CDFBF8 

CALL ERRORCOUNT 

{ INCRENENT ERRORBYTE 

F8E7 C270F9 

JN2 ALOOP 

{TRY AGAIN IF LESS THAN 30H 

0 

FBEA 3EEF 

NO NVI A,OEFH 

{30H TRACK ERRORS 

F8EC B7 

ORA A 

{RETURN EFH IN ACC 

F8ED 37 

STC 

{ (UNSUCESSFUL DISK OPERATION) 

FBEE 3201FE 

STA HRCLK 


F8F1 C9 

RET 



TERROR 1: 



{ARRIVE HERE ON TRACK ERROR 

IN DOUBLE DENSITY 

F8F2 CDFBF8 

CALL ERRORCOUNT 

{INCRENENT ERRORBYTE 

F8F5 C254F8 

JNZ BLOOP 

{TRY AGAIN IF LESS THAN 30H 



FILE: C2PR0H 


F8F8 C3EAF8 

F8FB 2100FC 
F8FE 34 
F8FF 7E 
F900 FE30 
F902 C9 


F903 3E4E 
F905 12 
F906 12 
F907 12 
F908 12 
F909 AF 
F90A 12 
F90B 12 
F90C 2A0BFC 
F90F 12 
F910 12 
F911 0104FE 
F914 12 
F915 12 
F916 3EA1 
F918 02 
F919 OEEl 


F91B 7E 
F91C 12 
F|1D.23 
fIk OC 
F91F 7E 
F920 12 
F921 23 
F922 7E 
F923 12 
F924 23 
F925 7E 
F926 2i 
F927 12 
F928 7E 
F929 C21CF9 


F92C 12 
F92D 23 
F92E 7E 
F92F 12 
F930 23 


PRN 


PA6E 00& 


JMP NO 

ERRORCOUNT LH H,ERRORBYTE 

INR H i INCREMENT ERRORBYTE 

NOV A,N 

CPI 30H 

RET 

NRITEDD: 

; DOUBLE DENSITY WRITE 

;ARR1VE HERE 16 BYTES AFTER ID FIELD 

HVI A,4EH 

STAX D 5 WRITE 4 BYTES OF 4E 

STAX D 

STAX D 

STAX D 

XRA A 

STAX D ; WRITE 6 BYTES OF 00 

STAX D 

LHLD DHA 

STAX D 

STAX D 

LXI B,WRNRKCRC 

STAX D 

STAX D 

HVI A,0A1H 

STAX B ;WRITE DATA HARK (All 

HVI C,0E1H 

jSTART WRITINB DATA TO DISK FROH HEHORY 

WXFER: HOV A,H 

WLOOP: STAX D 

INX H 

INR C 

HOV A,H 

STAX D 

INX H 

HOV A,n 

STAX D 

INX H 

HOV A,H 

INX H 

STAX D 

HOV A,H 

3NZ WLOOP 

;WHEN WE ARRIVE HERE WE’VE WRITTEN 
; 3114=124 BYTES TO DISK 

STAX D 

INX H 

HOV A,H 

STAX D 

INX H 



FILE; C2PR0H 

PRN 

PAGE 007 


F931 7E 

HOV 

A,H 


F932 23 

INK 

H 


F933 12 

STAX 

D 


F934 7E 

HOV 

A,H 


F935 12 

STAX 

D 

il28TH BYTE TO DISK 

F93i 3EFF 

HVI 

A,OFFH 


F938 3207FE 

STA 

NRCRC 

jHRITE 2 BYTES OF DATA CRC 

F93B 3207FE 

STA 

HRCRC 


F93E 12 

STAX 

D 

;NRITE 3 BYTES OF FF 

F93F 12 

STAX 

D 


F940 12 

STAX 

D 


F941 AF 

XRA 

A 

; RETURN 00 IN ACC 

F942 3201FE 

STA 

HRCLK 

5 (SUCCESSFUL NRITEl 

F945 C9 

RET 





jSINGLE DENSITY 

ROUTINES 



1 ENTRY POINT IS SD (BELON) 


HRITESD; 

i ARRIVE HERE 6 BYTES PAST ID FIELD 

F946 3EFF 

HVI 

A.OFFH 


F94B 12 

STAX 

D 

iNRITE 3 BYTES FF (BYTES 7,8,9) 

F949 12 

STAX 

D 


F94A 12 

STAX 

D 


F94B AF 

XRA 

A 


F94C 12 

STAX 

D 

jNRITE i BYTES 00 (BYTES 10-15) 

F94D 12 

STAX 

D 


F94E 2AOBFC 

LHLD 

DHA 


F951 12 

STAX 

D 


F952 12 

STAX 

D 


F953 12 

STAX 

D 


F954 12 

STAX 

D 

IBYTE 15 OF GAP 

F955 3EFB 

HVI 

A,OFBH 

; WRITE DATA HARK FOR SINGLE DEN 

F957 3204FE 

STA 

NRHRKCRC 


F95A OEEl 

HVI 

C,0E1H 


F95C C31BF9 

JHP 

NXFER 

iJUHP TO COHHON NRITE ROUTINE 


SYNC; 

i ROUTINE TO SYNC ON HEADER 


F95F 2101FE 

LXI 

H, HRCLK 


F962 36FF 

HVI 

HjOFFH 


F964 1107FE 

LXI 

D.SYNCPORT 


F967 lA 

CLOOP: LDAX 

D 

;SYNC ON FF CLOCK IN HEADER 

F968 B7 

ORA 

A 

; SHOULD HAVE 00 DATA 
i FOUND SYNC PATTERN 

F969 00 

NOP 



F96A 00 

NOP 



F96B IB 

DCX 

D 

i(D)=HRDATA=READDATA 

F96C CB 

RZ 



F9iD C35FF9 

JHP 

SYNC 





; SINGLE DENSITY ENTRY POINT 

F970 CD5FF9 

SD: 

ALOOF: CALL 

SYNC 



FILE: C2PR0H PRN PARE 008 


F973 36C7 

HLOOP: 

HVI 

H,0C7H 

F975 3A04FE 

LLOOP: 

LDA 

RDHRKCRC 

F978 B7 


ORA 

A 

F979 CA75F9 


JZ 

LLOOP 

F97C FEFE 


CPI 

OFEH 

F97E CABDF9 


JZ 

NLOOP 

F981 36FF 


HVI 

H,OFFH 

F983 3A07FE 


LDA 

SYNCPORT 

F986 B7 


ORA 

A 

F987 CA73F9 


JZ 

HLOOP 

F98A C370F9 

NLOOP: 

JHP 

ALOOP 

F98D lA 


LDAX 

D 

F98E B8 


CHP 

B 

F98F C2E4FB 


JNZ 

TERROR 

F992 lA 


LDAX 

D 

F993 lA 


LDAX 

D 

F994 B9 


CHP 

C 

F995 C270F9 


JNZ 

ALOOP 


F998 F3 

DI 


F999 lA 

LDAX 

D 

F99A lA 

LDAX 

D 

F99B lA 

LDAX 

D 

F99C lA 

LDAX 

D 

F99D 3AOOFE 

LDA 

RDSTAT 

F9A0 IF 

RAR 


F9A1 lA 

LDAX 

D 

F9l2 lA 

LDAX 

D 

F9A3 DADDF8 

JC 

ERROR 

F9A6 lA 

LDAX 

D 

F9A7 3AnFC 

LDA 

AB0VE43 

F9AA 77 

Hoy 

H,A 

F9AB lA 

•liw 

D 

F9AC 3A02FC 

EM. 

READWRITE 

F9AF B7 

OR^ 

A 

F9B0 lA , 

LDAX 

D 

F9B1 C24iF9 

, JNZ 

WRITESD 


; SINGLE DENSITY READ 

F9B4 W 

LDAX 

D 

F9B5 lA 

LDAX 

D 

F9B6 lA 

LDAX 

D 

F9B7 lA 

LDAX 

D 

F9B8 lA 

LDAX 

D 

F9B9 lA 

LDAX 

D 

F9BA 36FF 

HVI 

H.OFFH 

F9BC OlOiFE 

LXI 

B.RDDATA 

F9BF lA 

LDAX 

D 

F9C0 13 

INX 

D 

F9C1 lA 

LDAX 

D 

F9C2 36C7 

HVI 

H,0C7H 

F9C4 1E04 

HVI 

E,04 


; FOUND HEADER 

; CLOCK PATTERN FOR ID HARK 


I FOUND DATA HARK 
i TRACK BYTE FROH DISK 

; TRACK ERROR 

jSIDE BYTE FROH DISK (IGNORE) 
i SECTOR BYTE FROH DISK 

i WRONG SECTOR. TRY AGAIN 

; FOUND CORRECT TRACK AND SECTOR 
jDISABLE INTERRUPTS BEFORE CHECKING ID CRC 

jCRC BYTE 
5 CRC BYTE 
jGAP BYTE 1 
i CHECK ID CRC 

;6AP BYTE 2 
;GAP BYTE 3 
;ID CRC ERROR 

i GAP BYTE 4 


jGAP BYTE 5 

; CHECK FOR WRITE 
iGAP BYTE 6 


iREAD 6 BYTES OF GAP 


;(WRCLK)=FF 

;GAP BYTE 14 
;(D)-SYNCPORT 

; CLOCK PATTERN FOR DATA HARK 
;(D)=RDHRKCRC 



FILE: C2PR0H 

PRN 

PAGE 009 


F9C6 OA 

LDAX 

B 

5 GAP BYTE 16 

F9C7 lA 

LDAX 

D 

;READ DATA NARK 

F9C8 E6FC 

AN I 

OFCH 


F9CA FEF8 

CPI 

0F8H 

jDATA PATTERN FOR DATA NARK 

F9CC C2DDF8 

JNZ 

ERROR 

iNISSING DATA MARK 


•.FOUND SINGLE 

DENSITY DATA NARK 


F9CF lEEO 

«VI 

E.OEOH 

;32»4=128 BYTE TRANSFER 

F9D1 OA 

LDAX 

B 


F9D2 2A0BFC 

LHLD 

DNA 


F9D5 C3BFF8 

JNP 

RLOOP 

JUMP TO MAIN READ ROUTINE 


TEST; 

•JESTS DENSITY OF DISKETTE IN LOBGED-IN DRIVE 
;RETURNS 00 IN ACC IF DOUBLE DENSITY 
RETURNS OF IN ACC IF SINGLE DENSITY 
rRETURNS OA IN ACC IF TEST FAILS 


F9D8 AF 


XRA 

A 


F9D9 3223FC 


STA 

TESTMAX 

;(TESTHAX)=0 

F9DC AF 

TESTl; 

XRA 

A 


F9DD 3200FC 


STA 

ERRORBYTE 

; (ERRORBYTE) =0 

F9E0 CDC5FB 


CALL 

DISKREADY 

;LOAD HEAD 

F9E3 OlOOFE 


LX I 

B.HRCONT 


F9E6 3A03FC 


LDA 

CONTROLBYTE 


F9E9 F680 


ORI 

BOH 

)SET CONTROLLER FOR SIDE 0 

F9EB E6FB 


ANI 

OFBH 

5 TRY DOUBLE DENSITY 

F9ED 02 

■! 

STAX 

B 



L00P6: 


i DOUBLE DENSITY TEST 

F9EE 2101FE 


LX I 

H.NRCLK 


F9F1 36FF 


HVI 

N.OFFH 


F9F3 1107FE 


LXl 

D.SYNCPORT 

jSYNC ON FF CLOCK IN HEADER 

F9F6 I A 

L00P7; 

LDAX 

D 

jREAD DATA PATTERN 

F9F7 2C 


I NR 

L 

; ABORT AFTER 256 TRIES 

F9F8 CAIAFA 


3Z 

JETRY 


F9FB B7 


ORA ' ■ 

A 

5 DATA SHOULD BE 00 

F9FC C2FiF9 


JNZ 

L00P7 

; FOUND HEADER 

F9FF IB 


DCX 

D 

;(D)=READDATA 

FAOO 2E01 


NVI 

L,01 

;(H)=«RCLK 

FA02 360A 


NVI 

N.OAH 


FA04 lA 


LDAX 

D 

iSYNC NITH -EON 

FA05 3A04FE 


LDA 

RDNRKCRC 

iLOOK FOR ID MARK 

FA08 FEAl 


CPI 

OAIH 


FAOA C21AFA 


JNZ 

RETRY 

; FOUND ID NARK 

FAOD lA 


LDAX 

D 

;FE BYTE 

FAOE lA 


LDAX 

D 

JRACK BYTE 

FAOF lA 


LDAX 

D 

; SECTOR BYTE 

FAIO lA 


LDAX 

D 

jCRC BYTE 

FAll lA 


LDAX 

D 

;CRC byte 

FA12 lA 


LDAX 

D 

jSAP BYTE 1 

FA13 OA 


LDAX 

B 
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FAM IF 

RAR 


{CHECK ID CRC 

FA15 DAIAFA 

JC 

RETRY 

{ID CRC OK 

FA18 AF 

XRA 

A 

{RETURN 00 

FA19 C9 

RET 



FAIA CDFBF8 

RETRY: CALL 

ERRORCOUNT 


FAID C2EEF9 

JNZ 

LOOPS 



;SIN6LE DENSITY TEST 

{ARRIVE HERE AFTER 30H TRIES AT DOUBLE DENSITY 


FA20 AF 

SDTEST; XRA 

A 


FA21 3200FC 

STA 

ERRORBYTE 

{(ERR0RBYTE)*0 

FA2A 3A03FC 

LDA 

CONTROLBYTE 


FA27 F684 

ORI 

84H 

{SET UP SIDE 0, SIN6LE DENSITY 

FA29 02 

STAX 

B 

{TO NRCONT 


SDLOOPl: 



FA2A 1E07 

«VI 

E,07 

{(D)=SYNCPORT 

FA2C 2101FE 

LXl 

HjHRCLK 


FA2F 3SFF 

HVl 

H,OFFH 

{SYNC ON FF CLOCK PATTERN 


SDLQQP2: 



FA3I lA 

LDAX 

D 

{BET CORRESPONDINB DATA 

FA32 2C 

INR 

L 

{ABORT AFTER 25i TRIES 

FA33 CA57FA 

JZ 

RETRYl 


FA3i B7 

ORA 

A 

{DATA SHOULD BE 00 

FA37 C231FA 

JNZ 

SDL00P2 

{FOUND HEADER 

FA3A IB 

DCX 

D 

{ (D)=READDATA 

FA3B 2E01 

NVI 

L,01 

{(H)=HRCLK 

FA3D 36C7 

nvi 

H,0C7H 

{LOOK FOR C7 CLOCK 

FA3F lA 

LDAX 

D 

{SYNC HITH -EON 

FA40 3A04FE 

LDA 

RDHRKCRC 


FA43 FEFE 

CPI 

OFEH 

{DATA FOR ID HARK 

FA45 C257FA 

JNZ 

RETRYl 

{FOUND ID HARK 

FA4B lA 

LDAX 

D 

{TRACK BYTE 

FA49 lA 

LDAX 

D 

{SIDE 

FA4A lA 

LDAX 

D 

{SECTOR 

FA4B lA 

LDAX 

D 


FA4C lA 

LDAX 

D 

{CRC BYTE 

FA4D lA 

LDAX 

D 

{CRC BYTE 

FA4E lA 

LDAX 

D 


FA4F OA 

LDAX 

B 

{BET RDSTAT 

FASO IF. 

RAR 


{CHECK ID CRC 

FA51 DA57FA 

JC 

RETRYl 

{ID CRC OK 

FA54 F6FF 

-ORI 

OFFH 

{RETURN FF 

FA56 C9 

■ RET 



FA57 CDFBF8 

RETRY 1: CALL 

ERRORCOUNT 


FA5A C22AFA 

JNZ 

SDLOOPl 



{FAILED BOTH DOUBLE AND SIKBLE DENSITY 
{ TESTS 30H TIHES 

LIT HJESTHAX 


FA5D 2123FC 
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FA60 34 

I NR 

H jINCREHENT TESTHAX 

Fft61 7E 

HOV 

A,n 

FA62 FEOA 

CPI 

10 

FAi4 C2DCF9 

JNZ 

TESTl 

jFAlLED TEST 10 TIHES 

FA67 B7 

FA68 C9 

ORA 

RET 

A ; RETURN OA 



SKEH: 




5 COMPUTES PHYSICAL SECTOR FROM LOGICAL SECTOR 


jSKEH FACTOR IS 8 



: INPUT AND OUTPUT ARE IN C REG 


.•OUTPUT 

=I( (INPUT) HOD 52)18 - 7) HOD 52 


jIF INPUT>52, SELECTS SIDE 1 

FA69 210000 

LXl 

H,0 


FAiC E5 

PUSH 

H 


FAiD 3A03FC 

LDA 

CONTROLBYTE 


FA70 E67F 

ANI 

7FH 

;SIDE 1 

FA72 5F 

HOV 

E,A 


FA73 79 

HOV 

A,C 


FA74 D634 

SUI 

52 


FA76 47 

MOV 

B,A 

!(B)=(C)-52 

FA77 7B 

HOV 

A,E 

}( A) = (CONTROLBYTE) *7F 

FA78 F27EFA 

JP 

SKIPY 

; INPUT NAS LESS THAN 52 

FA7B F680 

ORI 

80H 

;CHOOSE SIDE 0 

FA7D 41 

MOV 

B,C 


FA7E 320FFC 

SKIPY: STA 

TNOSIDE 


FA81 78 

MOV 

A,B 

5(B)=(INPUT) hod 52 

FA82 68 

HOV 

L,B 


FA83 Cl 

POP 

B 


FA84 OC 

LOOPIO: INR 

C 


FA85 D60D 

SUI 

13 


FA87 F284FA 

JP 

LOOPIO 


FA8A 29 

DAD 

H 


FA8B 29 

DAD 

H 


FA8C 29 

DAD 

H 


FA8D 7C 

HOV 

A,K 


FA8E B7 

ORA 

A 


FA8F 7D 

HOV 

A,L 


FA90 C4A0FA 

CNZ 

HIGHE 


FA93 FE34 

LOOPll: CPI 

52 


FA95 DftSDFA 

JC 

SK1P12 


FA98 C6CC 

ADI 

204 


FA9A C393FA 

JHP 

LOOPll 


FA9D 81 

SKIP12^ ADD 

C 


FA9E 4F 

HOV 

C,A 


FA9F C9 

RET 



FAAO C630 

HIGHE: ADI 

48 


FAA2 C9 

RET 



FAA3 60 

4 

SETDMA: HOV 

H,B 


FAA4 69 

HOV 

L,C 


FAA5 220BFC 

SHLD 

DMA 

; STORE DMA ADDRESS 
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FAA8 C9 

RET 



FAA9 79 

SETSEC; NOV 

A,C 


FAAA 320AFC 

STA 

SECTOR 

; STORE SECTOR NUHBER 

FAAD C9 

RET 





SETTRK: 

i STEPS DRIVE TO TRACK IC) 

FAAE 79 

NOV 

A,C 


FAAF FE2C 

CPI 

44D 

jIF (C)<44 

FABl 3E10 

HVI 

A,10H 

1 THEN {AB0VE43)=10H 

FAB3 DAB8FA 

JC 

SKIP3 


FABi 3E50 

HVI 

A,SOH 

S ELSE (ABQVE43)=50H 

FABB 321 IFC 

SKIP3.* STA 

AB0VE43 


FABB CDC5FB 

CALL 

DISKREADY 



STEPLOOP: 



FABE 2104FC 

LH 

H, TRACK 


FACl 7E 

NOV 

A,H 

iGET (TRACK) 

FAC2 B9 

CHP 

C 

;DONE? 

FAC3 CAEAFA 

3Z 

DONESTEP 


FAC6 CDCCFA 

CALL 

STEPHEAD 

;NQ, STEP HEAD 

FAC9 C3BEFA 

JHP 

STEPLOOP 

; REPEAT 


STEPHEAD; 



FACC DAD8FA 

3C 

STEPIN 

5 IF (TRACKXIC) THEN STEP IN 


STEPOUT : 



FACF 3A03FC 

- LDA 

CONTROLBVTE- 

5 ELSE STEP OUT 

FAD2 35 

DCR 

N 

;(TRACK)=(TRACK)-1 

FAD3 F602 

ORI 

02H 

;DIR=OUT 

FADS C3DEFA 

JHP 

DOSTEP 


FADB 3A03FC 

STEPIN: LDA 

CONTROLBYTE 


FABB 34 

INR 

H 

;(TRACK)=(TRACK)+1 

FADC EBFD 

ANI 

OFDH 

;DIR=IN 

FADE 12 

DOSTEP: STAX 

D 

;STORE DIRECTION IN NRCONT 

FADF 3D 

DCR 

A 

i-STEP=0 

FAEO 12 

STAX 

D 


FAEl 3C 

INR 

A 

;-STEP=l 

FAE2 12 

STAX 

D 


FAE3 3A10FC 

LDA 

STEPTIHE 


FAE6 47 

NOV 

B,A 

;HAIT 8 HS FOR NEXT STEP 

FAE7 C3MFB 

JHP 

DELAY 

; DELAY EXECUTES A RETURN 


DONESTEP: 



FAEA 060F 

-HVI 

B,STEPSETTLE 


FAEC CD7DFB 

CALL 

DELAY 

;HAIT 8 HS FOR STEP SETTLE 

FAEF 79 

NOV 

A,C 


FAFO FE02 

CPI 

2 

;IF iTRACK)<2 THEN SET TESTNEXT 

FAF2 DA69FB 

JC 

SETTN 


FAF5 3A0EFC 

LDA 

TESTNEXT 


FAF8 B7 

ORA 

A 


FAF9 3E00 

HVI 

A,0 


FAFB 320EFC 

STA 

TESTNEXT 


FAFE 37 

STC 
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FAFF C203FB JNZ SETDEN 5 IF TESTNEH^SS TEST DENSITY 

FB02 C9 RET 

SETDEN: 


;TESTS DENSITY 
i UPDATES DENBYTE AND DENMAP 


FB03 CDD8F9 

CALL 

TEST 

;TEST DENSITY 

FB06 3E04 

«VI 

A, 4 

5 IF Z IS SET (DOUBLE DENSITY) 

FB08 CAODFB 

JZ 

SKIP 

i THEN (DENBYTE) =4 

FBOB 3E00 

HVI 

A,0 

j ELSE (DENBYTE) =0 

FBOD 320 IFC 

SKIP; STA 

DENBYTE 


FBiO 2116FC 

LII 

H,DENHAP 


FB13 F5 

PUSH 

PSN 


FBI 4 3A05FC 

LDA 

PRESDISK 


FBI? 4F 

NOV 

C,A 


FBI 8 0600 

HVI 

B,0 


FBIA 09 

DAD 

B 


FBIB FI 

POP 

PSN 

jSAVE FLAGS 

FBIC 77 

HOV 

H,A 

i (DENHAP (PRESDISK) )= (DENBYTE) 

FBID C9 

RET 




' SELDSK: 


SSELECTS DRIVE POINTED TO BY C REG 
jLOADS HEAD OF SELECTED DRIVE 


FBIE 21F9FB 

LXI 

H,HASKTABLE 

FB21 0600 

HVI 

B,0 

FB23 09 

DAD 

B 

FB24 7E 

HOV 

SELDSKl: 

A,H 

FB25 3200FE 

STA 

NRCONT 

FB28 320FFC 

STA 

TNDSIDE 

FB2B 3203FC 

STA 

CONTROLBYTE 

FB2E 2112FC 

LXI 

H,TRACKTAB 

FB31 3A05FC 

LDA 

PRESDISK 

FB34 5F 

HOV 

E,A 

FB35 50 

HOV 

D,B 

FB36 19 

DAD 

D 

FB37 3A04FC 

LDA 

TRACK 

FB3A 77 

HOV 

H,A 

FB3B 79 

HOV 

A,C 

FB3C 3205FC 

STA 

PRESDISK 

FB3F 320DFC 

STA 

DISK 

FB42 2112FC 

LXI 

H.TRACKTAB 

FB45 09 

■'DAD 

B 

FB46 7E 

HOV 

A,H 

FB47 3204FC 

STA 

TRACK 

FB4A 2106FC 

LXI 

H.LOGINTAB 

FB4D 09 

DAD 

B 

FB4E 7E 

HOV 

A,H 

FB4F B7 

ORA 

A 

FB50 C259FB 

JNZ 

INOK 

FB53 3E55 

HVI 

A,55H 

FB55 77 

HOV 

H,A 


;C CONTAINS DRIVE NUNBER 
;nASKTABLE CONTAINS 0 FOR 

; SELECTED DRIVE, I’S ELSENHERE 


5 (TRACKTAB(PRESDISK))=(TRACK) 

i(PRESDISK)=(C) 

i(DlSK)=(C) 

;(TRACK)=(TRACKTAB(C)) 

;HAS DRIVE BEEN LOGGED IN? 


|N0, HARK AS LOGGED IN 
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FB56 CD97FB 


CALL 

HOHE 

; AND HOHE THE HEAD 

FB59 CDC5FB 

INDK: 

CALL 

DISKREADY 

;LOAD HEAD 

FB5C 0628 


HVI 

B.HEADSETTLE 


FB5E CD7DFB 


CALL 

DELAY 

jNAIT FOR HEAD SETTLIN6 

FB61 3A04FC 


LDA 

TRACK 


FB64 FE02 


CPI 

02 


FB66 D203FB 


JNC 

SETDEN 


FB69 3E55 

SETTN! 

HVI 

A,55H 

iON TRACKS 0 AND 1, HE HANT 

FB6B 320EFC 


STA 

TESTNEXT 

; TO TEST DENSITY OF NEXT TRACK 

FB6E C303FB 


JHP 

SETDEN 

tTEST DENSITY OF THIS TRACK 



HEADLQAD: 



FB71 lA 

LDAX 

D 

;ASSUHES ID)=RDSTAT 

FB72 E620 

ANI 

20H 

{HEAD ALREADY LOADED? 

FB74 3A05FE 

LDA 

RDHARK 

i RESET HEAD LOAD COUNTER 

FB77 0628 

HVI 

B,HEADSETTLE 


FB79 C47DFB 

CNZ 

DELAY 

ilF HEAD HASN’T LOADED 

FB7C C9 

RET 




DELAY: 




) DELAYS 

(B) HILLISECONDS 

FB7D E5 

PUSH 

H 

;SAVE HL 

FB7E 3A03FC 

DELAY2i LDA 

CONTROLBYTE 


FBBl E604 

ANI 

4 

;IF SINBLE DENSITY, 

FB83 2E1F 

HVI 

L,31 

;31 BYTES t 32 USEC = 1 HS 

FB85 C2BAFB 

JN2 

DELAYl 


FB88 2E3F 

HVI 

L,63 

5 IN DD, 63 BYTES I 16 USEC = 1 HS 

FB8A 3A06FE 

DELAYl: LDA 

RDDATA 


FBBD 2D 

DCR 

L 


FB8E C28AFB 

3NZ 

DELAYl 


FB91 05 

DCR 

B 

iEND 1 HS LOOP 

FB92 C27EFB 

JNZ 

DELAY2 


FB95 El 

POP 

H 

; RESTORE HL 

FB96 C9 

RET 




FB97 CDC5FB 

HOHE; CALL 

DISKREADY 


FB9A 2104FC 

LXI 

H, TRACK 

;FOR STEPIN AND STEPOUT 

FB9D CDDBFA 

ATHOHE: CALL 

STEPIN 

iSTEP TOHARD 76 

FBAO lA 

LDAX 

D 


FBAl E602 

ANI 

02 

; UNTIL -TRKO IS INACTIVE 

FBA3 CA9DFB 

. TZ 

ATHOHE 


FBA6 CDCFFA 

BOHOHE: CALL 

STEPOUT 

;THEN STEP TOHARD 00 

FBA9 lA 

LDAX 

D 


FBAA E602 

ANI 

02 

i UNTIL -TRKO IS ACTIVE 

FBAC C2A6FB 

JNZ 

BOHOHE 


FBAF 3E10 

HVI 

A,iOH 


FBBI 321 IFC 

STA 

AB0VE43 

;(AB0VE43)=10H 

FBB4 320EFC 

STA 

TESTNEXT 

;(TESTNEXT)=10H 

FBB7 AF 

XRA 

A 


FBB8 3204FC 

STA 

TRACK, 

;( TRACK) =00 

FBBB C303FB 

JHP 

SETDEN 

:TEST DENSITY 
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DISKREADYl: 



FBBE 3A00FE 

LDA 

RDSTAT 


FBCl 47 

ROV 

B,A 


FBC2 EiAO 

ANI 

OAOH 

;IF DRIVE READY AND HEAD LOADED 

FBC4 C0 

RZ 


; THEN RETURN 


BISKREASY: 



FBC5 C5 

PUSH 

6 


FBC6 llOOFE 

LYI 

D,(iRCONT 

5(D)=HRC0NT=RDSTAT 

FBC9 CD71FB 

CALL 

HEADLOAD 

;LOAD HEAD 

FBCC Cl 

POP 

6 


FBCD lA 

LDAY 

D 


FBCE 07 

RLC 



FBCF DAC5FB 

JC 

DISKREADY 

{LOOP UNTIL DRIVE READY 

FBD2 C9 

RET 





COLDBOOT: 




FBD3 3140FC 

LX I 

SP, STACK 



FBD6 AF 

XRA 

A 



FBD7 OlOOFC 

LX I 

B,BUFF 



FBDA 02 

CBUFF; STAX 

B 

{ZERO OUT RAH BUFFER 

FBDB OC 

INR 

C 



FBDC C2DAFB 

3N2 

CBUFF 



FBDF 3E0A 

HVI 

A, 10 



FBEl 321<H'C 

STA 

STEPTIHE 

{SET STEPTIHE LONGER THAN IT NEEDS TO BE 




{TO BE SAFE, SINCE COLD BOOT LOADER RESETS IT 

FBE4 010000 

LXI 

B,0 



FBE7 CDA3FA 

CALL 

SETDBA 

{SETDHA DOES NOT„ CHANGE C REG, SO... 

FBEA CDIEFB 

CALL 

SELDSK 

{SELECT DRIVE A 


FEED OEOl 

HVI 

C,01 

{LOAD BOOTSTRAP LOADER 

FBEF CDA9FA 

CALL 

SETSEC 

{ FROH TRACK 0 SECTOR 1 

FBF2 CD29FB 

CALL 

READ 



FBF5 C2D3FB 

JNZ 

COLDBOOT 

{ON READ FAILURE, TRY AGAIN 

FBFB C7 

RST 

0 

{EXECUTE BOOTSTRAP LOADER 




{ (SAVES 2 BYTES OVER JHP 0000) 

FBF9 BFDFEFF7 

HASKTABLE 

DB 0BFH,0DFH,0EFH,0F7H 


FCll AB0VE43 

F970 ALDOP 

FB9D ATHOHE 

F800 BASE 

FB54 BLOOP 

FCOO BUFF ■’ 

FB6A CBUFF 

F967 CLOOP 

FBD3 COLDBOOT 


FC03 CONTROLBYTE 

FC22 CURRDRIVE 

FB7D DELAY 

FB8A DELAYl 

FB7E DELAY2 

FCOl DENBYTE 

FC16 DENHAP 

FCOD DISK 

FBBE DISKREADYl 

FBC5 DISKREADY 

FCOB DHA 

FAEA DONESTEP 

FADE DOSTEP 

FCOO ERRORBYTE 

FBDD ERROR 

FBFB ERRORCOUNT FB8B 6L00P 

F82F GO 

FBA6 GOHOHE 

FB71 HEADLOAD 

002B HEADSETTLE FAAO HIGHE 

FB97 HOHE 

FB59 INOK 

F975 LLOOP 

FC06 LOGINTAB 

FA84 LOOPtO 

FA93 LOOPll 

F9EE LOOPi 

F9F6 L00P7 

FBF9 HASKTABLE 

F973 HLOOP 

F98D NLOOP 

FBEA NO 

FC05 PRESDISK 

FE06 RDDATA 

FE05 RDHARK 

FE04 RDHRKCRC 

FEOO RDSTAT 

FE02 RDUART 

FB29' READ 

F854 READDD 

FC02 READNRITE 

FA57 RETRY! 

FC21 RETRYCOUNT 

FAIA RETRY 

F8BF RLOOP 

FBAE RXFER 

F970 SD 

FA2A SDLOOPl 

FA31 SDL00P2 

FA20 SDTEST 

FCOA SECTOR 

FBIE SELDSK 

FB25 SELDSKl 

FB03 SETDEN 

FAA3 SETDHA 

FAA9 SETSEC 

FB69 SETTN 

FAAE SETTRK 

FA69 SKEW 

FA9D SKIP12 

FAB8 SKIP3 

FBOD SKIP 

FA7E SKIPY , , 

FC40~^TACK- 

FACC STEPHEAD 

FAD8 STEPIN 

FABE STEPLOOP 

FACT STEPOUT 

QQOF SIEPSETTLE FCIO STEPTIME 

F95F SYNC 

FE07 SYNCPORT 

F8F2 TERRORl 

FBE4 TERROR 

F9DC TESTl 

FC23 TESTHAX 

FCOE TESTNEXT 

F9D8 TEST 

FC04 TRACK 

FC12 TRACKTAB 

FC20 TRYl 

FCOF TNOSIDE 
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F9IC HLODP FEOl HRCLK FEOO HRCONT FE07 HRCRC FE06 lIRDATA 
F82D WRITE F903 HRITEDD F81E WRITEPROTECT F946 WRITESD 
FE04 WRMRKCRC FE05 HRHRK FE02 WRUART F91B HTFER 



